Source position: ovccal.pas line 124
type TDateChangeEvent = procedure(
Sender: TObject;
Date: TDateTime
) of object;