procedure TMain.Button2Click(Sender: TObject);
var
i : integer;
begin
xSendMsgJabber('Recieve Online List '); //Отпраляем команду Джаббер серверу на получение онлайн людей в чате
Listbox1.Items.Clear; // Чистим listbox, что бы имена пользователей в нем не повторялись  
  for I := 0 to xUsersStringList.count - 1 do  //xUserStringList - тут хранятся имена онлайн пользователей  
  begin
ListBox1.Items.Add(xUsersStringList.Strings[i]); //добавляем каждое имя онлайн юзера
end;
end;