TdxMeasureReportTitleEvent = procedure(Sender: TObject; AReportLink: TBasedxReportLink; var AHeight: Integer) of object;