Delphi TNetHTTPClient Authorization not working

0

I have the following C# code that works, ie. I get the expected result from the server.

static async Task GetObjectInfo()
{
  HttpClient httpClient = new HttpClient(new HttpClientHandler()
  {
    Credentials = new NetworkCredential('USERNAME', 'PASSWORD')
  });
            
  string requestUrl = "http://<ipaddress>/rest/api/info/9C145D739F73";
  Console.WriteLine("Url: " + requestUrl);
  HttpResponseMessage response = await httpClient.GetAsync(requestUrl);
  if (response.IsSuccessStatusCode)
  {
    string aresult = await response.Content.ReadAsStringAsync();
    Console.WriteLine(aresult);
  }
  else
  {
    Console.WriteLine(response.StatusCode);
  }
}

However, I need to do the same in Delphi (RAD Studio 10.3), but the server always responds with You do not have permission to view this directory or page.

I used the TNetHTTPClient

AUrl := 'http://<ipaddress>/rest/api/info/9C145D739F73';
memResult.Lines.Text := NetHTTPClient1.Get(AUrl, nil).ContentAsString;

and in the NetHTTPClient1AuthEvent I have

procedure TForm1.NetHTTPClient1AuthEvent(const Sender: TObject;
  AnAuthTarget: TAuthTargetType; const ARealm, AURL: string; var AUserName,
  APassword: string; var AbortAuth: Boolean;
  var Persistence: TAuthPersistenceType);
begin
  if AnAuthTarget = TAuthTargetType.Server then
    begin
      AUserName := 'USERNAME';
      APassword := 'PASSWORD';
    end;
end;

If I debug the code, the AnAuthTarget = TAuthTargetType.Server so the username and password is set. What can I try next?