Sockets: Daten an "relativ" unbekannten Client senden

[napsterxx]

Ich habe es jetzt wie hier gemacht:
http://www.delphipraxis.net/internal...+server+client

Delphi-Quellcode:

  type
    TUser = record
      username: string;
      ip: string;
      socket: TCustomWinSocket;
  end;

Schätze es funktioniert auch, bleibt aber ein Problem. Ich müsste ein array von TUser anlegen.
Benutzer: array of Tuser; und dieses Array müsste ich bei jeder neuen verbindung erweitern.
SetLength(Benutzer, AnzahlBenutzer); auch das wäre kein Problem, jedoch wenn nun jemand Disconncted muss ich ihn auch wieder aus dieser Liste "Streichen" und das ist sicherlich nicht so sehr komfortabel da ich dann "Löcher" in meinem Array habe und somit alle anderen nachfolgenden Clienten verschieben müsste, was bei vielen Benutzern imenser Rechenaufwand ist. Jemand eine Lösung parat?