Delphi [Asynchronous Socket Error]

[Flame of Soul]

begin
{$I-}
try
ClientSocket1.Active := true;
if ClientSocket1.Active=true then
ClientSocket1.Socket.SendText(IntToStr(length(Edit 1.Text))+'#'+Edit1.Text+'#'+IntToStr(length(MaskEd it1.Text))+'#'+MD5DigestToStr(MD5String(MaskEdit1. Text)));
except
//
end;
{$I+}
end;

если не может соединиться с сервером, то есть тот выключен, то выпадает ошибка Asynchronous Socket Error 10 061, как ее перехватить? Понимаю что надо копать в сторону

procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);

но вот какое событие именно надо перехватывать понятия не имею. Кто сталкивался подскажите решение как убить эту ошибку.

[W!z@rD]

Событие OnError
begin
ErrorCode:=0;
end;


это насколько я помню