delphi 调用编码格式为application/x-www-form-urlencoded

//原始信息
curl --request POST \   
       --url https:****************** \   
       --header 'Content-Type: application/x-www-form-urlencoded' \   
       --data grant_type=client_******** \   
       --data client_id=************ \   
       --data client_secret=***************

procedure TForm1.Button1Click(Sender: TObject);
var
  Send_发送数据: TSTringList;
  Ret_答复数据流: TStringStream;
  Ret_答复字符串: string;
begin
  Send_发送数据 := TStringList.Create;
  Ret_答复数据流 := TStringStream.Create;
  try
    NetHTTPClient1.ContentType :=
      'application/x-www-form-urlencoded; charset=UTF-8';
    //提交的数据
    Send_发送数据.Add('grant_type=client_**********');
    Send_发送数据.Add('client_id=*************');
    Send_发送数据.Add('client_secret=**********');
 
        //多行可以填加
    NetHTTPClient1.Post('https://*******************',
      Send_发送数据, Ret_答复数据流);
        //获取网页返回的信息
    Ret_答复字符串 := Ret_答复数据流.DataString;
    Ret_答复字符串 := UTF8Decode(Ret_答复字符串);
    Memo1.Text := Ret_答复字符串;
  finally
    Ret_答复数据流.Free;
    Send_发送数据.Free;
  end;
end;

-------------添加Authorization

NetHTTPClient.CustomHeaders['Authorization']:='Bearer ************';

测试环境：delphi xe10.3