Форум АНТИЧАТ - 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);

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