UnitQESBPCSGlobals
Declaration
TESBGetLabelEvent = procedure (Sender: TObject; const Index: LongWord; var Value: string) of object;