Source position: buttonedit.pas line 608
type TAcceptDateEvent = procedure(
Sender: TObject;
var ADate: TDateTime;
var AcceptDate: Boolean
) of object;