IdIRC как получить список юзеров на чане?

[The SCS]

Пишу бота для ирц сервера, столкнулся с проблемой получения юзеров на чане.

users.Items:=ANicknameList; в OnNicknamesListReceived и OnServerUsersListReceived не помогает =(. Что делать? Весь интернет перерыл. Пробовал VortexIRC, но там нет возможности ввести пароль, а сервер запароленный.

[The SCS]

Также не работает

procedure TForm1.ircJoin(ASender: TIdContext; ANickname, AHost,
  AChannel: String);
begin
chat.Lines.Add(ANickname+' is joined');
end;

[elagin]

procedure TForm1.IdIRC1Names(Sender: TObject; AUsers: TIdIRCUsers;
  AChannel: TIdIRCChannel);
  var
  i:integer;
begin
i := 0;
for i:= 0 to IdIRC1.users.Count -1 do
ListBox1.Items.Add(iDiRC1.Users.Items[i].Nick);
end;

а по событию onJoin - просто вставляешь ник в лист бокс. onPart\OnQuit - ищешь ивемс с с текстом как и ник и удаляешь:

  var
  n:integer;
begin
n := listbox1.items.indexof(AUser.Nick);
ListBox1.Items.Delete(n);

да, при смене юзером ника, что то вот такое:

var
  n:Integer;
begin
n := listbox1.items.indexof(AUser.Nick);
ListBox1.Items[n]:=ANewNick;