TdxGenerateReportProgressEvent = procedure(Sender: TObject; AReportLink: TBasedxReportLink; APercentDone: Double) of object;