Delphi 7 chat Nachrichten-trennung

[TDR]

Hallo liebe Delphiuser,

Ich habe folgendes Problem:

Mein Chat-Server(socket) soll allen Clients mitteilen wer mit dem Server verbunden ist.
Dies löse ich folgendermaßen:

Server:

Delphi-Quellcode:

for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
  begin
    for ii := 0 to ServerSocket1.Socket.ActiveConnections-1 do
      ServerSocket1.Socket.Connections[ii].SendText('&'+ ServerSocket1.Socket.Connections[i].RemoteAddress);
  end;

Client:

Delphi-Quellcode:

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
  SMessage := Socket.ReceiveText;
if '&' = SMessage[1] Then
  begin
    Delete(SMessage, 1, 1);
    Listbox1.Items.Add(SMessage);
    exit;
  end;

Mein Problem das klappt bei einem Wunderbar.
Sind es aber mehre Clients kommt:
127.0.0.1&127.0.0.1 in der Listbox-spalte
Ich möchte diese aber einzeln aufgelistet haben.

Was kann ich tun.

Vielen dank schon mal im Vorraus.