Indy IdHTTP.Get（）套接字错误10038然后是10060

Question

我在XE6的Firemonkey应用程序上使用此代码，它运行正常。 现在我正在尝试使用它与XE8一起使用新应用，但我得到e.Message = 'Connection Timed Out'错误代码10060和10038，我根本无法理解为什么？我在网络内部和3G连接中进行了测试。

    try
    { conecta no servidor para procurar o documento }
      Log.Lines.Add('Internet: Iniciando Protocolo');
      Cloud := TIdHTTP.Create(Self);
      Log.Lines.Add('Internet: Tentando Conectar...');
      DocumentText := Cloud.Get(Format('http://alcantara.net.br:80/ristretto/index.php?ac=dl&&ln=%s&&lk=%s&&dn=%s&&dk=%s',[LoginNX,LoginKX,DocumentNX,DocumentKX]));
      Log.Lines.Add('Internet: Sucesso ao Conectar!');
      Cloud.Free;
      NewDocument := (Length(DocumentText) = 7) and (LeftStr(DocumentText, 7) = '@newdoc');
    { decodifica o documento e começa a edição }
      lblStatus.FontColor := TAlphaColorRec.Black;
      if NewDocument then
      begin
        lblStatus.Text := 'Novo: ' + DocumentNS;
        DocumentContent.Lines.Clear;
      end
      else
      begin
        lblStatus.Text := DocumentNS;
        DocumentContent.Lines.Text := Alcantara.Whisper.SSCM.SSCMR(DocumentText, LoginNX+LoginKX, DocumentNX+DocumentKX);
      end;
      DocumentOpened := True;
    finally
      if not DocumentOpened then
        Log.Lines.Add('Documento: Nenhum')
      else
        if NewDocument then
          Log.Lines.Add('Documento: Novo (Vazio)')
        else
          Log.Lines.Add('Documento: ' + DocumentNS);
    end;
  except
    on E:Exception do
    begin
      lblStatus.Text := E.Message;
      Log.Lines.Add('Erro: ' + E.Message);
      lblStatus.FontColor := TAlphaColorRec.Red;
    end;
  end;