Array of Tserversocket und wie man dat ding verwalten kann

[SIn]

Hallo erst mal.

Ich hätte eine Frage zu Tserversocket.

ich möchte gerne ein Chatprogramm schreiben, das mehrere Chaträume hat.Meine Idee ist die , das ich ein "array of Tserversocket" dafür benutze, welche die Chaträume darstellt. Wenn man dann meinen Rechner connected, muss man nur noch den richtigen Port auswählen um in den entsprechenden chat reinzukommen.Jetzt kriege ich nur Ärger mit diesem onclientread Ereignis.

chatraum:array[1..3] of TServerSocket;

procedure chatinit();
var i:integer;
begin
for i:= 1 to 3 do
begin
chatraum[i]:=TServerSocket.Create(form1);
chatraum[i].Port:=10024+i;
chatraum[i].Tag:=0;
chatraum[i].ThreadCacheSize:=10;
chatraum[i].ServerType:=stNonBlocking;
chatraum[i].Open;
chatraum[i].Active:=true;
chatraum[i].OnClientRead:=form1.ServerClientRead;
Steuerung:=TSteuerung.Create();
end;
end;

ich habe leider keine Ahnung wie ich es hinkriegen kann , jeden einzelnen Server anzusprechen und die mit einem Server verbunden clients untereinander Nachrichten austauschen zu lassen.

Meine Idee war die, das ich das in einer Steuerklasse verwalte die eine spezielle Methode dazu besitz.

Hoffe es kann mir jemand helfen.

mfg Sin