Chat

[Minz]

Probiers mal mit

Code:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
   i: Integer;
   t: string;
begin
   t := Socket.receivetext;
   for i := 0 to Clientcount-1 do
       Serversocket1.Socket.Connections[i].SendText(t);
   memo1.lines.add(t);
end;

i statt 1