UnitQESBPCSGlobals
Declaration
TESBGetCalMenuCountEvent = procedure (Sender: TObject; var NoOfItems: Integer) of object;