IdIRC

[Miron86]

Здравствуйте!

Как правильно реализовать список пользователей в IdIRC ?

У меня в таймере вызывается данная процедура, но почему-то срабатывает она первый раз и то не различает операторов канала и войсов:

procedure Tform3.UpdateUsers;
begin
ListBox1.Clear;
for i:=0 to idIRC1.Users.Count-1 do
begin
If idIRC1.IsOp(idIRC1.Users.Items[i].Nick) then
ListBox1.Items.Add('@' + idIRC1.Users.Items[i].Nick)
else
If idIRC1.IsVoice(idIRC1.Users.Items[i].Nick) then
ListBox1.Items.Add('+' + idIRC1.Users.Items[i].Nick)
else
ListBox1.Items.Add(idIRC1.Users.Items[i].Nick);
end;
end;