Procedure TMainF.CreateObj;
     Var 
       V:TfrView;  
    begin
      If frReport1.FindObject('Plint1')<> nil then // Если нашел удалить
         frReport1.FindObject('Plint1').Free;
    
         V:= frCreateObject(gtMemo,'');
         V.Name:='Plint1';
         V.Memo.Add('Hello');
         frReport1.Pages[ 0 ].Objects.Add(v);

         frReport1.FindObject('Plint1'); // Ищу объект с таким именем
                                                     вот здесь на  2 -ой раз и ошибка

    end;