RR4D_SYNAPSE Limpando incorretamente os Headers

[jperim]

Estava com esse erro no meu sistema: LRequest := TRequest.New .BaseURL(FConfigAPI.Url_Base) .TokenBearer(pToken) .ContentType('application/json') .Get;

Codigo: 401 Unauthorized Response: {"error":"Token não enviado!"}

Debuguei e achei o problema.

Na unit RESTRequest4D.Request.Synapse, damos o Get() já com os Headers incluidos, mas na unit RESTRequest4D.Response.Synapse no Create estava limpando.

constructor TResponseSynapse.Create(const AHTTPSend: THTTPSend); begin FHTTPSend := AHTTPSend; FHTTPSend.KeepAlive := True; //FHTTPSend.Headers.Clear; Aqui está o erro FStreamResult := TStringStream.Create; end;

[viniciussanchez]

Bom dia... quer nos enviar um pull request com a correção?