Ошибка 21029 при попытке отправить любой запрос с помощью TNetHTTPClient

Помогите, пожалуйста, разобраться в вопросе интернет соединения.

Написал для работы небольшую программку, которая получает информацию с сайта SBIS. Get запрос оправляю используя связку TNetHTTPRequest и TNetHTTPClient. До недавнего времени проблем не было, но компания перешла на какой-то другой вариант мониторинга интернет соединения. Любые запросы на все внешние сайты, кроме корпоративного, возвращают ошибку "Error sending dats (12029)...".

При этом компонент TChromium (CEF4Delphi) работает нормально, сайты открываются. Браузеры тоже работают нормально.

Раньше компания использовала корпоративный Прокси-сервер и TNetHTTPClient нормально отрабатывал запросы. Сейчас в параметрах прокси на работе установлено Автоматическое определение параметров. Отправляя ping 192.168.1.1 ответ приходит с другого IP. В сетях разбираюсь плохо, поэтому не до конца понимаю, почему браузеры и TChromium работают исправно, а TNetHTTPClient отказывается.

Настройки компонентов:

  object NetHTTPRequest1: TNetHTTPRequest
    Asynchronous = False
    ConnectionTimeout = 5000
    ResponseTimeout = 5000
    Client = NetHTTPClient1
  end
  object NetHTTPClient1: TNetHTTPClient
    Asynchronous = False
    ConnectionTimeout = 5000
    ResponseTimeout = 5000
    HandleRedirects = False
    AllowCookies = True
    UserAgent = 
      'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KH' +
      'TML, like Gecko) Chrome/83.0.4103.97 Safari/537.36'
  end

Запрос отправляю так:

procedure Proced;
var Header: TNameValuePair;
    Cookie: TCookie;
    i: Integer;
    Resp: IHTTPResponse;
begin
  with NetHTTPRequest1 do
  begin
    ContentStream := Nil;
    MethodString := 'HEAD';
    URL := e_URL.Text;
  end;
  Resp := NetHTTPRequest1.Execute;

  mem_Content.Lines.Text := Resp.ContentAsString;
  for Header in Resp.Headers do
    mem_Headers.Lines.Add(Header.Name + ': ' + Header.Value);
  for Cookie in Resp.Cookies do
    mem_Cookies.Lines.Add(Cookie.ToString);
  case Resp.Version of
    THTTPProtocolVersion.UNKNOWN_HTTP: edt_vHTTP.Text := 'n/a';
    THTTPProtocolVersion.HTTP_1_0    : edt_vHTTP.Text := '1.0';
    THTTPProtocolVersion.HTTP_1_1    : edt_vHTTP.Text := '1.1';
    THTTPProtocolVersion.HTTP_2_0    : edt_vHTTP.Text := '2.0';
  end;
    e_StatusCode.Text := Resp.StatusCode.ToString;
end;

Ответы (0 шт):