[NumLock]

я бы так сделал рассылку по клиентам:

Код:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  len: Integer;
  buf: PChar;
  i: Integer;
begin
  len:=Socket.ReceiveLength;
  buf:=GetMemory(len);
  try
    len:=Socket.ReceiveBuf(buf^, len);
    for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
      if Socket<>ServerSocket1.Socket.Connections[i] then
        ServerSocket1.Socket.Connections[i].SendBuf(buf^, len);
  finally
    FreeMemory(buf);
  end;
end;