API REST con problema en BODY

[mjjj]

Si he logrado conectarme sin problema con Postman.
Agrega este token y veras que te funciona.

eyJ0eXAiOiJKV1QiLCJhbGciOiJSUzI1NiJ9.eyJhdWQiOiIxIiwianRpIjoiMWNhNjE2OTZmNWYzNTU3YzQ0YmVlYzVjZGQ2ZDE zYTMxYmNiMDc0YzNhOWY4NmZlMjIyZjAwN2U3NmQyOTkyNTFjMTRmMGU2MmVmNWE0ZDgiLCJpYXQiOjE1ODk1OTY0OTcsIm5iZiI 6MTU4OTU5NjQ5NywiZXhwIjoxNjIxMTMyNDk3LCJzdWIiOiIxMTQiLCJzY29wZXMiOltdfQ.kYi4q8IjmtwXFhnvUCiniDgwP4ts 6VHphYHDHTEbAzD5vmYwZi9fF5o55lMLtPqUovoQKIDQHB3vT-tU4PpC_AJH2Ea65tKq4wgHVHWyXkCKuWST0-hC-anAOrMpTJsO45Pcuye5kLgHndZExVwe-XegrgsPEw2AYWNmMra7EagnMQfBwzXyE6EDk6Ql9gZPG07GtQp7FGEWWR04EScFbotuygT8eXgbfRDNwwpONQ0IjeBIhkfRPrMIh qmr3X1myosNzJ-WOiFTCTjSOrqNLW-MJ-riZDJcB93OGKI43KyvB4ng0_-4qz5PnJlf1snSbNUVlKqNeseWXQmCGPW1wSrDP_WKzSUmAHz_ySGJD7XFYX155VBRuy9JJW2CVsv4zGFUgwErsNiXzQSUGaghtsE qz9_AhxsKXOeyJgLPlcSPEO6oEGg73KGkcCEH1Kj9FI5r0jy1IzPW4nreBIoilMgGp4PvjzE_voekgd9xN-ypz3FSGmSdN073ceBpGze9-Hasj7gMsGxoqgaen5DkPCNLDX5xmTv7gSn2ViEV-lhs503PheQ_WmukugEqsikrlPah3tOmQqUnHlV2mFBvzzUolN055tJcSacXTjqsZKcTbFBzXcWLHSnCtF0wWx57Doyt_Tkk-JwQ2Atedy3m3_oI4zYFHhOxUJMLM7CmE7o

En el componente TOAuth2Authenticator, cambia la propiedad de TokenTypo por ttBEARER y podrás hacer consultas que no requieran nada en el cuerpo, por ejemplo:

GET https://api.libredte.cl/api/v1/sii/i.../uf/anual/2020

El problema surge cuando necesito agregar en el cuerpo las credenciales del SII, aquí es cuando me arroja el error interno, por ejemplo:

POST https://api.libredte.cl/api/v1/sii/r...ertificacion=0

Como agrego al cuerpo JSON requerido ??

Código PHP:

{
"auth": {
"pass": {
"rut": "12345678-0",
"clave": "12345678"
}
}
} 


Este código no resulta

Código Delphi [-]
var
  Obj, ObjCons, ObjIpp: TJSONObject;
 
begin
 
    ObjCons := TJSONObject.Create;
    ObjCons.AddPair('rut', TJsonString.Create('12345678-0'));
    ObjCons.AddPair('clave', TJsonString.Create('prueba'));
 
    ObjIpp := TJSONObject.Create;
    ObjIpp.AddPair('pass',ObjCons);
 
    Obj := TJSONObject.Create;
    Obj.AddPair('auth',ObjIpp);
 
  RESTrequest1.ClearBody;
  RESTrequest1.AddBody(Obj);
  RESTrequest1.Execute;
 
end;

Ni tampoco este:

Código Delphi [-]
var
  Obj, ObjCons, ObjIpp: TJSONObject;
 
begin
 
    ObjCons := TJSONObject.Create;
    ObjCons.AddPair('rut', TJsonString.Create('12345678-0'));
    ObjCons.AddPair('clave', TJsonString.Create('prueba'));
 
    ObjIpp := TJSONObject.Create;
    ObjIpp.AddPair('pass',ObjCons);
 
    Obj := TJSONObject.Create;
    Obj.AddPair('auth',ObjIpp);
 
 
   RESTrequest1.Params.Clear;
   RESTrequest1.Params.Add;
   RESTrequest1.Params[0].ContentType := ctAPPLICATION_JSON;
   RESTrequest1.Params[0].Kind := pkREQUESTBODY;
   RESTrequest1.Params[0].Value := obj.ToString;
 
 
  RESTrequest1.Execute;
 
end;

No estoy muy instruido en JSON, está bien generado con los códigos que escribo ??
Espero me puedan ayudar !!