Chat Proggy-Problem Asynchroner Socketfehler 10061

[ReDoX]

Hi probiere es mal so

Delphi-Quellcode:

procedure TForm1.CS1Error(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode:=0;
try
inc(x);
showmessage('Err0r No.'+inttostr(x));
CS1.Active := false;
//Connect;
except
cs1.Active := false;
showmessage('except fehl0r in fehler');
end;
end;

Mfg MrScholz