Source position: ovccal.pas line 126
type TCalendarDateEvent = procedure(
Sender: TObject;
ADate: TDateTime;
const Rect: TRect
) of object;