Source position: cyEditDate.pas line 51
type TProcEditDateNeedDefaultValue = procedure(
Sender: TObject;
var Value: TDate
) of object;