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