Paypal über die REST API Exception

[Mavarik]

Hallo Zusammen!

Ich versuche gerade von der Paypal Sandbox ein Token zu erhalten.

Ich mache überall das gleiche:

REST-Debugger (Leerer Result)

Delphi 10.0 / Delphi 10.1 Exception Empty Certifikatsliste
Delphi 10.2 "INTERNAL_SERVICE_ERROR"

Das einzige wo es funktioniert ist: PostMan (wie von Paypal vorgeschlagen)

Hier kommt JSON und das Token zurück...

Hat jemand ne Idee?

Edit: Wenn ich einen eigenen Server (Ohne SSL) als Ziel angebe, sieht es für mich so aus, als würden alle Clients genau das gleiche senden...

Delphi-Quellcode:

procedure TForm238.Button1Click(Sender: TObject);

  function NoCRLF(Const S: String) : String;
    begin
      Result := StringReplace(S,#13#10,'',[rfreplaceall]);
    end;

var
  Content   : TStringList;
  Response  : IHttpResponse;
  Basic     : String;
begin
  Content := TStringList.Create;
  try
    Content.Add('grant_type=client_credentials'); 

    Basic := NoCRLF(TNetEncoding.Base64.Encode('<UserID>:<Secret>'));

    Req.CustomHeaders['Accept']          := 'application/json';
    Req.CustomHeaders['Accept-Language'] := 'en_US';
    Req.CustomHeaders['Content-Type']    := 'application/x-www-form-urlencoded';
    Req.CustomHeaders['Authorization']   := 'Basic '+Basic;

    Memo1.Lines.Clear;

    Response := Req.Post('https://api.sandbox.paypal.com/v1/oauth2/token',Content);
    Memo1.Lines.Add('Content-Length : '+Response.ContentLength.ToString);
    Memo1.Lines.Add(Response.StatusCode.ToString+' '+Response.StatusText);
    Memo1.Lines.Add(Response.ContentAsString())
  finally
    Content.Free;
  end;
end;

Mavarik