IRC mit TClientSocket reconnected nicht?

[Thehandyplanet]

Zeig mir bitte mal deinen Code, hmm, kann ja net sein dass es nur bei mir so ist.

Mein Code:

Code:

procedure TDummy.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ClientSocket1.Close;
  Delay(5000);
  ClientSocket1.Open;
end;

Danke,
Thehandyplanet.