Source position: buttonedit.pas line 610
type TCustomDateEvent = procedure(
Sender: TObject;
var ADate: string
) of object;