ClientSocket и ServerSocket

[KoBRaAndrey]

Добрый день, делаю программу что-то типо чата. Клиент передает на сервер сокетом информацию, допустим 'proga=xD.exe', а сервер должен разослать этот текст ВСЕМ кроме отправителя. Шлю текст так:
for i := 0 to ServerSocket1.Socket.ActiveConnecti ons-1 do
begin
ServerSocket1.Socket.Connections[i].SendText(Socket.ReceiveText);
end;

Это в событие:
ServerSocket1ClientRead

Как слать всем кроме отправителя?

[profi]

procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var i:integer;
begin
  for i:=0 to ServerSocket.Socket.ActiveConnections-1 do
    if ServerSocket.Socket.Connections[i].RemoteAddress <> Socket.RemoteAddress then
      ServerSocket.Socket.Connections[i].SendText(Socket.ReceiveText);
end;

[KoBRaAndrey]

Спасибо, просто оказалось

[aleks8091]

Сделал как написано .. ток вот не пойму.. открываю 2 раза клиент , подключаю к серверу . От второго клиента первому приходят сообщения , а когда пишу с первого он присывает сам себе ответ , как исправить?

[v1m]

Неполучится два клиента с одного компа