[Nati1]

tal vez asi

Código Delphi [-]
begin
      try
         QReport1:=TQReport1.Create(self);
         QReport1.Preview;
      finally
         QReport1.Free;
      end; 
end;