[Akzes]

вот так я думаю должно помочь

Код:

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