Warum ist die Verbindung instabil (PingTimeout) ?

[Nils_13]

Hi,

ich möchte eine Verbindung zu einem IRC-Server herstellen. Nachdem etwas Zeit vergangen ist, wird die Verbindung unterbrochen. Warum ?
Host: irc.euirc.net
Port: 6667
User-ID: controller

Client ist TClientSocket.

Verbindung herstellen:

Delphi-Quellcode:

with Client do
begin
  Host := eHost.Text;
  Port := StrToInt(ePort.Text);
  Open;
end;

ClientConnect:

Delphi-Quellcode:

procedure TfrmMain.ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  with Client.Socket do
  begin
    SendText('NICK testnick');
    SendText('USER ' + eiD.Text + ' "" "'+ eHost.Text +'" :1337');
  end;
end;

Um die Fehlermeldung "ERROR :Closing Link: [...] (Ping timeout)" zu erhalten noch diese Zeile in OnRead:
m.Lines.Add(Socket.ReceiveText);