TIdTCPServer: Wo sind die aktiven Verbindungen?

[Angel4585]

Contexts iss ne TThreadList

Delphi-Quellcode:

  TThreadList = class
  private
    FList: TList;
    FLock: TRTLCriticalSection;
    FDuplicates: TDuplicates;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Add(Item: Pointer);
    procedure Clear;
    function  LockList: TList;
    procedure Remove(Item: Pointer);
    procedure UnlockList;
    property Duplicates: TDuplicates read FDuplicates write FDuplicates;
  end;

Wie muss ich mit der umgehen?