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?