Source position: editbtn.pas line 651
type TCustomTimeEvent = procedure(
Sender: TObject;
var ATime: TDateTime
) of object;