部分设置，需要自行，根据实际调整。

var

  lParams: TCollectionItem;

  lJSONObject: TJSONObject;

begin

  lJSONObject := TJSONObject.Create;

  try

    ResetRESTComponentsToDefaults;

 

    RESTClient.BaseURL := 'http://ws.hml.autorei.net/';

    RESTClient.Authenticator := HTTPBasicAuthenticator1;

    RESTClient.ContentType := 'application/x-www-form-urlencoded';

 

    RESTRequest.Method := TRESTRequestMethod.rmPOST;

    RESTRequest.Resource := 'oauth/token';

 

    lJSONObject.AddPair('scope', 'product:show stock:save stock:update warehouse:list warehouse:save warehouse:show '+

                                 'warehouse:update partnerOrder:show partnerOrder:list partnerOrder:update');

    lJSONObject.AddPair('grant_type', 'client_credentials');

 

    RESTRequest.Params.Clear;

    RESTRequest.Params.AddHeader('authorization', 'Basic '+Edt_Base64.Text);

    RESTRequest.AddBody(lJSONObject);

 

    RESTRequest.Execute;

  finally

    FreeAndNil(lJSONObject);

  end;

end;