ClientSocket/ServerSocket: как отправить клиенту список тех, кто онлайн?

 s := Socket.ReceiveText;
  {Если кто-то прислал нам свое имя}
  if Copy(s,1,2) = '#N' then begin
   Delete(s,1,2);
   {Добавляем его в юзер лист}
   ListBox1.Items.Add(s);
   {Записываем в 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;

ListBox1.Items.Clear;
  for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
   ServerSocket1.Socket.Connections[i].SendText('#N');

s := Socket.ReceiveText; (принятая строка(
(проверка на то что отправлен список пользователей)
  if Copy(s,1,2) = '#U' then
  begin
   Delete(s,1,2);(удаляем спец символы)
   Form2.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;