// переопределение реакции на OnVerifyPeer
function TSecLicenseUpdate.VerifyPeer(Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean;
begin
  // Сюда даже не заходит
  Result := True; //AOk;
end;

function TSecLicenseUpdate.HTTPPost (AUrl: string; AParams: string;
  var AResponse: string; var AError: string): boolean;
var
  IdHTTP: TIdHTTP;
  Parameters: TStringStream;
  lIOHandlerSSL : TIdSSLIOHandlerSocketOpenSSL;
begin
  IdHTTP := TIdHTTP.Create (nil);
  Parameters := TStringStream.Create (AParams {пустая строка''}, TEncoding.UTF8);
  try
    try
      lIOHandlerSSL := TIdSSLIOHandlerSocketOpenSSL.Create (IdHTTP);
      lIOHandlerSSL.sslOptions.SSLVersions := [sslvTLSv1_2];
      lIOHandlerSSL.sslOptions.VerifyMode := [];
      lIOHandlerSSL.sslOptions.VerifyDepth := 0;
      lIOHandlerSSL.sslOptions.Mode := sslmUnassigned;

      if not StrEmpty(Params.ProxyServer)  then begin

          // если сюда не заходить всё работает
          lIOHandlerSSL.OnVerifyPeer := VerifyPeer; // переопределение реакции на OnVerifyPeer дабы соглашаться с левым сертификатом
          // IdHTTP.ProxyParams.BasicAuthentication := пробовал и True и False не помогло;
          IdHTTP.ProxyParams.ProxyServer               := Params.ProxyServer; //192.168.0.208
          IdHTTP.ProxyParams.ProxyPort                   := Params.ProxyPort;    //3128
          //IdHTTP.ProxyParams.ProxyUsername        := Params.ProxyUsername;
          //IdHTTP.ProxyParams.ProxyPassword         := Params.ProxyPassword;
        end;

      IdHTTP.IOHandler := lIOHandlerSSL;

      AResponse := idHTTP.Post(AUrl {https://localhost:2017/Test}, Parameters); // тут вываливает исключение EIdHTTPProtocolException 'HTTP/1.1 503 Сервис недоступен'
.....