Problem mit MSXML Httprequest.send

[TigerLilly]

Das ist eine Legacy-Anwendung mit Delphi 2006. Sie greift auf die MS Azure Translator API zu. Das hat seit gut 1 Jahr problemlos funktioniert + jetzt nicht mehr.

Es geht um diesen Code:

Code:

var
  XMLHTTPRequest: IXMLHTTPRequest;
  XMLDOMDocument: IXMLDOMDocument;
begin
  try
    XMLHTTPRequest := CreateOleObject('MSXML2.XMLHTTP') as IXMLHTTPRequest;
    if (sActiveToken = '') or (Now - dtTokenDate >= n10min) then begin
      dtTokenDate := Now;
      XMLHTTPRequest.Open('POST', URIToken, False, '', '');
      XMLHTTPRequest.setRequestHeader('Ocp-Apim-Subscription-Key', SubscriptionKey);
      XMLHTTPRequest.send('');
      if (XMLHTTPRequest.readyState = COMPLETED) and (XMLHTTPRequest.status = OK) then
      begin
        sActiveToken := XMLHTTPRequest.responseText;
      end else begin
        sActiveToken := '';
      end;
    end;

    Uri := UriTranslate + '?appid=Bearer%20' + sActiveToken + '&text=' +
      sText + '&from=' + sFrom + '&to=' + sTo;
    XMLHTTPRequest.Open('GET', URI, False, '', '');
    XMLHTTPRequest.send('');

Open wird ein Token angefordert, der ist immer 10 Minuten gültig. Das funktioniert. Unten wird mit dem Token eine Abfrage-URL erzeugt. Das OPEN funktioniert. Beim SEND wird eine Exception geworfen mit "'Systemfehler: -2146697208'". Das SEND ist eine Methode aus der MSXML.

Hat jemand eine Ahnung, was da schief gehen könnte?

Danke für Eure Tipps!