Chat Proggy-Problem Asynchroner Socketfehler 10061

[eX0r.9]

ich hab so ein änliches problem , nur ich möchte , das da diese meldung nicht kommt !!--> ich will das der client es c.a. 3 mal probiert zu connecten und dann eine messageDLG kommt um abzubrachen oder um es wieder 3mal zu probieren !

ich hab es schon mit Try und except probiert und es geht nicht !
mit der procedure onERROR .. ok die wird ausgeführt aber ClientSocket1.active := false; führt er zwar aus , aber als nächstes kommt die fehlermeldung.

Delphi-Quellcode:

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