Source position: calendarlite.pas line 70
type TGetHolidaysEvent = procedure(
Sender: TObject;
AMonth: Integer;
AYear: Integer;
var Holidays: THolidays
) of object;