UnitQESBPCSGlobals
Declaration
TESBCalendarEvent = procedure (Sender: TObject; var Value: TDateTime) of object;
DescriptionValue is the value currently in the CalEdit and should be updated accordingly.