1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.IdIRC1Joined(Sender: TObject; AChannel: TIdIRCChannel);
var i: integer;
begin
memo1.Clear;
memo1.Lines.Add('[' + timetostr(now) + ']' + achannel.Topic);

for i := 0 to idirc1.Users.Count - 1 do
begin
listbox1.Items.Add(idirc1.Users.Items[i].Nick);
end;
end;