Source position: ovccal.pas line 129
type TGetHighlightEvent = procedure(
Sender: TObject;
ADate: TDateTime;
var Color: TColor
) of object;