[одинадцатый]

вот простая процедура сокета. как видно при ошибке подключения в мемо запишется что подключение сорвано. Нужно что бы НЕ вылетало окошко message от windows что подключится не удалось. я знаю что это можно через try except но как его сюда воткнуть не знаю.

Код:

procedure TForm1.cs1Error(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
if  (ErrorCode>10013) and (ErrorCode<11020) then smemo1.lines.add('Connection failed');
end;