TdxRangeControlDateTimeClientGetLabelTextEvent = procedure(Sender: TObject; const AValue: TDateTime; var ADisplayText: string) of object;