Source position: editbtn.pas line 869
type TAcceptTimeEvent = procedure(
Sender: TObject;
var ATime: TDateTime;
var AcceptTime: Boolean
) of object;