作为Indy的替代，我建议您使用“导入类型库...”从Project菜单中，选择“Microsoft XML”，这是可用的最高版本(我当前所在的机器上有版本3到6)。禁用“生成组件 Package ”，然后使用XMLHTTP组件进行REST调用。例如：

uses ActiveX, MSXML2_TLB;

var
  r:XMLHTTP;
begin
  CoInitialize(nil);
  r:=CoXMLHTTP.Create;
  r.open('DELETE','http://localhost/myapp/api/user/1',false,'','');
  //r.setRequestHeader(...
  r.send(EmptyParam);
  if r.status=200 then

因此，另一个答案很简单，使用具有灵活后期绑定的COM对象，在GET或POST中实现的带有语言检测的REST转换服务的示例，在maXbox脚本中实现：

function getPostTranslateLibre(feedstream: string): string;
var
  Url,API_KEY, source: string;
  jo, locate: TJSONObject;
  httpReq,hr: Olevariant;
  strm: TStringStream;
begin
   httpReq:= CreateOleObject('WinHttp.WinHttpRequest.5.1');
  // Open the HTTPs connection.  
 try              
  hr:= httpReq.Open('POST','https://libretranslate.pussthecat.org/detect', false);
   httpReq.setRequestheader('user-agent',
      'Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:98.0) Gecko/20100101 Firefox/98.0');
  httpReq.setRequestheader('content-type','application/x-www-form-urlencoded');  
//httpReq.setRequestheader('X-RapidAPI-Host','nlp-  translation.p.rapidapi.com');   
//httpReq.setRequestheader('X-RapidAPI-Key','...333'); 

if hr= S_OK then HttpReq.Send('q='+HTTPEncode(feedstream));
 /// Send HTTP Post Request & get Responses. 

If HttpReq.Status = 200 Then
   result:= HttpReq.responseText
Else result:= 'Failed at getting   response:'+itoa(HttpReq.Status)+HttpReq.responseText;
//writeln('debug response '+HttpReq.GetAllResponseHeaders);     
 finally
  httpreq:= unassigned;  
 end;                  
end;