Erro Get com Delphi 7

[fdsilva.desenv]

Prezados, bom dia.

Utilizo Delphi 7 e estou com um problema para conseguir o Get de uma website. Lá eles utilizam o Bearer Token e da forma que estou fazendo, ao chamar o Get, ele dá o erro HTTP/1.1 401 Unauthorized.

O que posso fazer para conseguir chamar o get pelo delphi 7?

Abaixo o código que implementei:

function TForm1.GetDocumentos(URL, Sistema, TipoDocumento,
  TomadorPrestador, Status, Token: string): string;
var
  sResponse, parametros : string;
begin
    try
      with IdHTTP1.Request do
      begin
        Clear;
        CustomHeaders.Clear;
        ContentType := 'application/json';
        Accept      := 'application/json';
        BasicAuthentication := false;
        CustomHeaders.FoldLines := False;
        CustomHeaders.Add('Authorization: Bearer token:"'+Token+'"');
        CustomHeaders.Add('consultaExterna.sistema:'+Sistema);
        CustomHeaders.Add('consultaExterna.tipoDocumento:'+TipoDocumento);
        CustomHeaders.Add('consultaExterna.tomadorPrestador:'+TomadorPrestador);
        CustomHeaders.Add('consultaExterna.status:'+Status);
      end;

      sResponse := idHTTP1.Get(URL);
      Result    := sresponse;
    except
      on E: Exception do
      begin
        Result := e.message;
        exit;
      end;
    end;
end;

 

[Juliomar Marchetti]

acho que o correto da linha é

IdHTTP1.Request.CustomHeaders.Add('Authorization:Bearer ' + txtToken.Text);

[fdsilva.desenv]

Juliomar, bom dia.

Realizei a alteração pra  "CustomHeaders.Add('Authorization:Bearer '+Token);" e o erro persiste.

Sei que está funcionando, pois eu consigo o token, que é chamado em um post. O Problema está neste tipo de autenticação que não consigo passar o bearer utilizando os componentes TIdHTTP e TIdSSLOHandlerSocket.

O post que funciona e eu chamo antes da chamada acima é este: 

function TForm1.GetToken(url, username, password: string): string;
var
  sresponse, parametros : string;
  StringStream          : TStringStream;
  json_root             : ISuperObject;
begin
    try
      with IdHTTP1.Request do
      begin
        Clear;
        ContentType := 'application/x-www-form-urlencoded';
        BasicAuthentication := True;
      end;
      parametros :=
                  'grant_type=' + 'password' + '&'
                 +'username='   +  username  + '&'
                 +'password='   +  password;

      StringStream := TStringStream.Create(UTF8Encode(parametros));
      StringStream.Position := 0;

      sResponse := idHTTP1.Post(url,StringStream);

      json_root:=SO(sresponse);
      Result := json_root.S['access_token'];
    except
      on E: Exception do
      begin
        //Result := e.message;
        exit;
      end;
    end;
end;

 

[fdsilva.desenv]

Se alguém tiver uma ideia de onde to errando, eu agradeço turma rsrs tá difícil.