[azaznio]

В сервере исправь свой код:

Код:

procedure TForm1.ServerSocket1Read(Sender: TObject; Socket: TCustomWinSocket); 
var 
a: String; 
i:=integer;
begin 
for i:=0 to serversocket1.Socket.ActiveConnections-1 do  
a := 'Клиент ' + InTtoStr(Socket.SocketHandle) + 'написал >' + ServerSocket1.Socket.Connections[i].ReceiveTextt; 
ListBox1.Items.Add(a); 
        end; 
  end.  

Admin: Пользуемся тегами!

Вот и всё.