procedure TForm1.Button2Click(Sender: TObject); var Filter: TQRHTMLDocumentFilter; begin Filter:=TQRHTMLDocumentFilter.Create(ExtractFilePath(Application.ExeName)+'REPORT.HTM'); try QuickReport2.ExportToFilter(Filter) finally Filter.Free; end; end;