GET Rest Autenticação Delphi

[marco_visao]

Ola todos,
Estou precisando de fazer um acesso via rest no delphi um (GET)  com autenticação (Bearer Token).
segue o modelo que não esta funcionando.

  RESTClient1.ResetToDefaults;
  RESTRequest1.ResetToDefaults;
  RESTResponse1.ResetToDefaults;
  RESTResponseDataSetAdapter1.ResetToDefaults;
  RESTResponseDataSetAdapter1.Dataset      := tb01;
  RESTResponseDataSetAdapter1.ResponseJSON := RESTResponse1;

  RESTClient1.BaseURL             := URLBase;
  RESTClient1.Accept              := 'application/json, text/plain; q=0.9, text/html;q=0.8,';
  RESTClient1.AcceptCharset       := 'UTF-8, *;q=0.8';
  RESTClient1.ContentType         := CONTENTTYPE_APPLICATION_JSON;
  RESTClient1.HandleRedirects     := True;
  RESTClient1.RaiseExceptionOn500 := false;
  RESTRequest1.Client             := RESTClient1;
  RESTRequest1.Method             := TRESTRequestMethod.rmGET;

  REST.Authenticator.OAuth.DefaultOAuth2TokenType:= TOAuth2TokenType.ttBEARER;
  REST.Authenticator.OAuth.DefaultOAuth2AccessTokenParamName := vtoken;

  RESTRequest1.AddAuthParameter('Token', 'Token', TRESTRequestParameterKind.pkHTTPHEADER);

  RESTRequest1.Execute;

Atenciosamente,
Marco Antonio
 

[Juliomar Marchetti]

Já postei no discord o link

[Juliana Tamizou]

Bom dia.

Apenas para ficar documentando para aqueles que cairem no tópico, segue resposta dada no Discord

Att.

[marco_visao]

Boa noite,
Deu certo obrigado.

 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.