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