Source position: editbtn.pas line 320
type TCustomDateEvent = procedure(
Sender: TObject;
var ADate: String
) of object;