Verbindung zum Quakenet klappt nicht!!

[Black-Rider]

Hallo,
ich bin grade dabei einen Bot für das IRC zu schreiben:
Soweit bin ich bis jetzt:

Delphi-Quellcode:

var
  Verbunden         : Boolean = FALSE;
  Nick              : String  = 'BLACKTEST TESTBLACK';
  SERVER_IDENT      : String  = 'bot';
  SERVER_HOST       : String  = '*zensiert*.dyndns.org';
  SERVER_IP         : String  =  'irc.quakenet.org';
  SERVER_Port       : Integer = 6669;
  SERVER_FNAME      : String  = 'TESTY';

procedure TForm1.Btn_ConnectClick(Sender: TObject);
begin  // Btn_ConnectClick
  with TCP_IRC do
    begin
      Host := SERVER_IP;
      Port := SERVER_Port ;
      Connect();
      Verbunden := True;
      WriteLn('nick ' + Nick);
      WriteLn('USER ' + SERVER_IDENT + ' ' + SERVER_HOST + ' ' + SERVER_IP + ' ' + SERVER_FNAME);
      Memo1.Lines.Add(TCP_IRC.ReadLn());
      Memo1.Lines.Add(TCP_IRC.ReadLn());
      Memo1.Lines.Add(TCP_IRC.ReadLn());
      Memo1.Lines.Add(TCP_IRC.ReadLn());
      Memo1.Lines.Add(TCP_IRC.ReadLn());
  end;  // with TCP_IRC do
end;  // Btn_ConnectClick


procedure TForm1.Btn_ReadClick(Sender: TObject);
begin  // Btn_ReadClick
  with TCP_IRC do
  begin
    Memo1.Lines.Add(TCP_IRC.ReadLn());
  end; // TCP_IRC
end;  // Btn_ReadClick

procedure TForm1.Btn_JoinClick(Sender: TObject);
begin  // Btn_JoinClick
  with TCP_IRC do
  begin
    WriteLn('join #loomix');
    Memo1.Lines.Add(TCP_IRC.ReadLn());
  end;  // TCP_IRC
end; // Btn_JoinClick

Nach klicken auf Btn_ConnectClick wird im Memo folgendes ausgegeben:

Zitat:

NOTICE AUTH :*** Looking up your hostname
NOTICE AUTH :*** Checking Ident
NOTICE AUTH :*** Found your hostname
PING :2373891925
NOTICE AUTH :*** No ident response

Und wenn ich dann auf Btn_JoinClick klicke kommt:
:underworld1.no.quakenet.org 451 BLACKTEST BLACKTEST :Register first.

Aber durch USER registier ich den Clienten ja eigl. oder??

MFG
Black-Rider