TdxPageSetupEvent = procedure(Sender: TObject; AReportLink: TBasedxReportLink; ADone: Boolean) of object;