TDTParseInputEvent = procedure (Sender: TObject; const UserString: string; var DateAndTime: TDateTime; var AllowChange: Boolean) of object;
(Sender: TObject; const UserString: string; var DateAndTime: TDateTime; var AllowChange: Boolean) ( TDTParseInputEvent)();
ComCtrls
This is type ComCtrls.TDTParseInputEvent.