TdxMeasureReportLinkTitleEvent = procedure(Sender: TBasedxReportLink; var AHeight: Integer) of object;