Mirosoft Graph Api Auth Code

[oakley]

Hallo zusammen,

ich habe folgenden Code der bei der MS Graph Api eine Anfrage bezüglich eines AuthCodes ausführen soll.
OA ist ein TOAuth2Authenticator den ich auf die Form gezogen habe.

Code:

  
  LClient := TRestClient.Create(OA.AuthorizationEndpoint);
  try
    LClient.BaseURL := 'https://login.microsoftonline.com/07a9e2f0-5a0e-406c-a7ff-7b3ab1976b0e/oauth2/v2.0/authorize';
    LRequest := TRESTRequest.Create(LClient);
    LResponse := TRESTResponse.Create(LClient);
    LRequest.Response := LResponse;
    LRequest.Method := TRESTRequestMethod.rmPOST;

    LRequest.AddAuthParameter('client_id', OA.ClientID, TRESTRequestParameterKind.pkGETorPOST);
    LRequest.AddAuthParameter('redirect_uri', OA.RedirectionEndpoint, TRESTRequestParameterKind.pkGETorPOST);
    LRequest.AddAuthParameter('response_type', 'code', TRESTRequestParameterKind.pkGETorPOST);
    LRequest.AddAuthParameter('response_mode', 'query', TRESTRequestParameterKind.pkGETorPOST);
    LRequest.AddAuthParameter('scope', OA.Scope, TRESTRequestParameterKind.pkGETorPOST);

    LRequest.Execute;

    memo1.Lines.Text := LRequest.Response.Content;
   
  finally
    LClient.DisposeOf;
  end;

Um zu sehen was ich zurück bekomme, habe ich das Ergebnis der Anfrage mal in in Memo Feld schreiben lassen.
Ich erhalte also den HTML Code der Login Seite von Microsoft. Eigentlich müsste ich die aber im Browser öffnen (bevorzugt in edge).
Edge öffne ich derzeit so:

Code:

ShellExecute(Application.Handle, 'open', PChar('cmd.exe'), PChar('/c "start microsoft-edge:http://www.google.de"'), nil, SW_SHOWNORMAL);

Weiß jemand, wie ich das anstellen kann?

LG

Mirko