procedure ButtonKreditorListe_OnClick(Sender: Integer); var aReport : TfrmReportData; begin; aReport := TfrmReportData.Create('Kreditorliste'); try aReport.addTable(TableKreditor, 'Kreditor', GridMain.SelectedRows); aReport.previewreport; finally aReport.free; end; end;