TdxNewPageEvent = procedure(Sender: TObject; AReportLink: TBasedxReportLink; APageIndex: Integer) of object;