Список ников в чате

[nix01d]

Суть проблемы:
Когда к созданному серверу подключается 5 пользователей, список ников работает нормально, но когда больше 5, то список ников начинает на половину дублировать сам себя.

Кто не понял о чем речь, я прикрепил исходник.

[nix01d]

Пожалуй выложу код всех процедур и скрин

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Active:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ServerSocket1.Active:=True;
ListBox1.Items.Add(Edit2.Text);
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var s: string;
    i: Integer;
begin
s:=Socket.ReceiveText;
if Copy(s,1,2) = '#N' then begin
    Delete(s,1,2);
ListBox1.Items.Add(s);
s:='#U';
for i:=0 to ListBox1.Items.Count-1 do
s:=s+ListBox1.Items[i]+';';
for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
ServerSocket1.Socket.Connections[i].SendText(s);
end;
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var i: Integer;
begin
ListBox1.Items.Clear;
ListBox1.Items.Add(Edit2.Text);
for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
     ServerSocket1.Socket.Connections[i].SendText('#N');
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var s:string;
begin
s:=Socket.ReceiveText;
if Copy(s,1,2) = '#N' then Socket.SendText('#N'+Edit2.Text);
if Copy(s,1,2) = '#U' then begin
     Delete(s,1,2);
     ListBox1.Items.Clear;
     while Pos(';',s) > 0 do begin
      ListBox1.Items.Add(Copy(s,1,Pos(';',s)-1));
      Delete(s,1,Pos(';',s));
      end;
      end;
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
  var i:integer;
begin
ListBox1.Items.Clear;
ListBox1.Items.Add(Edit2.Text);
for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
     ServerSocket1.Socket.Connections[i].SendText('#N');
end;

Вот собсно что получается после подключения пятого или шестого юзера, в данном случае пятого