TdxGetPrintTitleEvent = procedure(Sender: TObject; AReportLink: TBasedxReportLink; var ATitle: string) of object;