вот простая процедура сокета. как видно при ошибке подключения в мемо запишется что подключение сорвано. Нужно что бы НЕ вылетало окошко 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;