Перехват сообщения об ошибке

[SanekIrk]

Доброго всем. Народ подскажите пожалста, как перехватить ошибку "Asynchronous socket Error 10061", чёт пробовал и там ставить try exept и сям, не работает нифига. Буду благодарен.

[bill_gates]

По-моему перехватить ошибку сокета try...except'ом нельзя. У сокета есть событие onError или onClientError. Я перехватываю так:

//объявляем переменную
var sockerr:integer;

...

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
//Сливаем код ошибки
sockerr:=ErrorCode;
//Обнуляем код ошибки (Код 0: нет ошибки, следовательно форточки
//ругаться не будут)
ErrorCode:=0;
//ругаемся на юзера :)
ShowMessage('SOCKET ERROR '+IntToStr(sockerr));
//закрываем сокет
ClientSocket1.Close;
end;

[SanekIrk]

Благодорю.