Wie macht man einen Chat mit Indys IRC ?

[Matze]

So z.B.

Delphi-Quellcode:

procedure TForm1.IdIRC1Joined(Sender: TObject; AChannel: TIdIRCChannel);
var i: integer;
begin
  Listbox1.Clear;
  for i := 0 to IDIRC1.Users.Count - 1 do
    Listbox1.Items.Add(IDIRC1.Users.Items[I].Nick);
end;