[genyus00]

por si no.. o si alguien llega a este punto. utilicen:

para indy 9.00.19 delphi 7

procedure TSoundForm.IdIRC1Names(Sender: TObject; AUsers: TIdIRCUsers; AChannel: TIdIRCChannel);
var i: Integer;
begin
if Assigned(AUsers) then
begin
ListBox1.Clear;
for i := 0 to AUsers.Count - 1 do
ListBox1..Items.Add( AUsers.Items[i].Nick );
end;
end;