ServerSocket & ClientSocket - передача списка из ListBox'a

void __fastcall TfServer::ServerSocketClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
  AnsiString ClientText;
  ClientText = Socket->ReceiveText();
  // lClientCmd - это Label на форме
  lClientCmd->Caption = ClientText;
  AnsiString Dots = ":";
  int iPos = 0;
  iPos = ClientText.Pos(Dots);
  if(iPos)
  {
    if(ClientText.SubString(1, iPos - 1) == "0000001")
    {
      // произошел разбор строки вида 0000001:UserName
      // теперь добавляем имя после двоеточия в ListBox
      lbUsers->Items->Add(ClientText.SubString(iPos+Dots.Length(), 255));
      for(int x = 0; x != ClientCount;) // ClientCount имеет тип int
      {
       // цилк чтобы послать всем клиентам
        for(int i = 0; i != lbUsers->Items->Count;)
        {
         // цикл для посылки имени из серверного ЛистБокса клиентовскому листБоксу. ЗДЕСЬ И ОШИБКА !!!
          ServerSocket->Socket->Connections[x]->SendText("0000001:"+lbUsers->Items->Strings);
          i++;
        }
        x++;
      }
    }
  }
}

void __fastcall TfClient::ClientSocketRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
  AnsiString ServerText;
  ServerText = Socket->ReceiveText();
  iPos = ServerText.Pos(Dots);
  if(iPos)
  {
    if(ServerText.SubString(1, iPos - 1) == "0000001")
    {
      lbUsers->Clear();
      lbUsers->Items->Add(ServerText.SubString(iPos+Dots.Length(), 255));
    }
  }
}

for(int x = 0; x != ClientCount;)
      {
        for(int i = 0; i != lbUsers->Items->Count;)
        {
          ServerSocket->Socket->Connections[x]->SendText("0000001:"+lbUsers->Items->Strings);
          i++;
        }
        x++;
      }