ComputerBild-Chat Fehlermeldung wenn Server nicht aktiv

[Minz]

procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ClientSocket1.ErrorCode:=0;
ClientSocket1.Close;
ClientSocket1.Open;
end;

Angeblich soll es so funktionieren! Dummerweise bekomme ich da die Fehlermeldung das ErrorCode nicht bekannt ist.