Delphi [Asynchronous Socket Error]

HTML:

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

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

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

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

 

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


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