在 Delphi 中，在两个HTTP客户端框架中，都可以在PUT请求中发送多个字段（文件、自定义头、主体字段...）：
在TNetHTTPClient中，通过Put()方法，你可以使用重载的函数和本地文件路径的字符串参数。并且在TNetHeaders对象的函数的可选参数中，你指定你的自定义头参数。
TNetHeaders是TNameValuePair记录的动态数组。
因此，您必须创建TNameValuePair的动态数组，然后使用API密钥创建TNameValuePair记录的示例，并将其添加到动态数组中。
除了在TNetHTTPClient中，您必须自己在URL的请求中直接指定URL segments参数。
最后，使用文件路径的字符串和TNetHeaders对象调用Put()方法，如下例所示：

procedure TForm1.PutFile;
var 
  LHTTP: TNetHTTPClient;
  LHeaders: array of TNameValuePair;
begin 
  SetLength(LHeaders, 1);
  LHeaders[0] := TNameValuePair.Create('x-api-key', 'lXViWTzFic9sM8qe9Ew7JME8xTdBAOMJHdIjK7XkjQ00OWr');

  LHTTP := TNetHTTPClient.Create(nil);
  try
    LHTTP.Put('https://example.com/upload/d32krpq/20181023_update.csv', 'C:/MyFile.csv', nil, LHeaders);
  finally
    LHTTP.Free;
  end;
end;

对于REST客户端库，可以简单地使用TRESTRequest.AddFile()函数添加文件，也可以使用AddParameter()函数添加任何自定义字段作为正文、URL段或头参数。
TRESTClient的另一个优点是可以使用基本URL或定义URL段的资源，如"example.com/upload/{Client ID}/{Future File Name}"。
将组件TRESTClient、TRESTRequest和TRESTResponse放到表单上，将TRESTClient.BaseURL设置为上传服务器，然后编写代码。

procedure TForm1.PutFile;
begin 
  try
    try
      RESTRequest1.Method := TRESTRequestMethod.rmPUT; 
      RESTRequest1.AddFile('File1', 'C:\MyFile.csv', TRESTContentType.ctTEXT_CSV);

      // Adding the parameters to be included in the URL
      RESTRequest1.AddField('Client ID', 'd32krpq', pkURLSEGMENT);
      RESTRequest1.AddField('Future File Name', '20181023_update.csv', pkURLSEGMENT);

      // Adding a header parameter
      RESTRequest1.AddField('x-api-key', 'lXViWTzFic9sM8qe9Ew7JME8xTdBAOMJHdIjK7XkjQ00OWr', pkHTTPHeader); 

      RESTRequest1.Execute; 
    except
      ShowMessage('Uploading failed'); 
    end;
  finally
    ShowMessage(RESTRequest1.Response.Content); // here you can see your server's response
  end;
end;

下面是使用Indy的TIdHTTP组件的另一种方法：

FS := TIdReadFileExclusiveStream.Create('20181023_update.csv');
try
  IdHTTP1.Request.CustomHeaders.Values['x-api-key'] := 'lXViWTzFic9sM8qe9Ew7JME8xTdBAOMJHdIjK7XkjQ00OWr';
  IdHTTP1.Put('https://example.com/upload/d32krpq/20181023_update.csv', FS);
finally
  FS.Free;
end;