Chat-Programm

[simon04]

Ich bin dabei, ein Chat Programm (mit TServer/ClientSocket) zu schreiben, das für mehr als 2 Benutzer funktioniert. Ich habe es mir so überlegt, dass die Clients die Nachricht an den Server schicken, der sie dann allen Clients schickt.
Mein Problem: Wenn der Server über OnClientRead etwas empfängt, wie geht es dann mit weiterschicken??

Delphi-Quellcode:

procedure TForm1.ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
ss.Socket.SendText(ss.Socket.ReceiveText);
end;

So gitbts immer eine Fehlermeldung von Winsock (ich glaube 10053); ich denke mal daher, dass der Server nicht weiß, welchen ReceiveText er nehmen soll.

Wie muss ich diese Prozedure abändern, dass es funktioniert??

Danke
simon