GET com ACBRHTTP passando authorization no Header

[Jefferson Alves da Silva]

Prezados,  bom dia !!

Estou tentando consumir uma API que exige que envie authorization no Header. 

Segue meu código abaixo :

         try
            Consulta := TACBrHTTP.Create(Self);
            Consulta.HTTPSend.Headers.Add('authorization: xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx-xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx');
            sURL := 'https://api.cnpja.com.br/companies/' + edtDocumento.text + '?sintegra_max_age=1';
            try
               Consulta.HTTPGet(sURL);
               sRetorno := Consulta.RespHTTP.Text;
               iResult := Consulta.HTTPSend.ResultCode;
            except
               on E: Exception do
               begin
                  ShowMessage(E.Message);
                  screen.cursor := crDefault;
               end;
            end;
         finally
            Consulta.Free;
         end;
 

Estou recebendo erro :

Porém ao debugar e ver o value da consulta.HTTPSend.Heades[0] esta preenchido com o valor atribuído mas quando chega na unit ABCRSOCKET 

    if AddUTF8InHeader then
      HTTPSend.Headers.Add('Accept-Charset: utf-8;q=*;q=0.7') ;
 

A lista do Headers esta em branco. e adiciona somente o valor do Accept- Charset. 

Se nesse momento eu forço no Evalute/Modify um New Value atribuindo o autorizantion e a key passa normal.

Como faço para atribuí o Header para que seja persistente até esse momento? 

[Jefferson Alves da Silva]

Prezados ,

Descobri o Motivo!

Tem um clear no HTTPSEND no metódo HTTPGET; 

Substitui por

 ConsultaCNPJ.HTTPMethod('GET',sURL);

E foi um sucesso !

Desculpe o incomodo;

[Juliana Tamizou]

Obrigado por reportar.

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