Probleme beim connecten mit IRC

[Äfan]

Also jetzt kommt beim connecten kein fehler mehr, doch irgendwie verbindet er nicht. Ich benutze folgenden code um zu connecten und zeigen der channels:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  IdIRC1.Connect;
  Listbox1.Clear;
begin
  for i := 0 to IDIRC1.Channels.Count - 1 do
    Listbox1.Items.Add(IDIRC1.Channels.Items[I].Name);
  end;
end;

... doch es passiert nix, es kommen keine channels. Wenn ich das programm nun beende kommt eine fehlermeldung (siehe anhang bild 1)

Wenn ich aber vor dem beenden "Disconnect" mache, kommt eine andere meldung (siehe anhang bild 2).

Was mach ich falsch ? Hat vielleicht schon jemand einen IRC chat gemacht und kann mir helfen ? (Bitte per MSN oder PN melden)

@tester008: Wie connectest du direkt in einen channel ? und gibts ne erstellen funktion falls es den channel net gibt ?

MFG