Source position: ovccal.pas line 132
type TGetDateEnabledEvent = procedure(
Sender: TObject;
ADate: TDateTime;
var Enabled: Boolean
) of object;