anchor.diff:  begin
     FHttpClient.Free;
     inherited;
  +end;
  +
  +procedure TMARSClient.EndorseAuthorization(const AAuthToken: string);
  +begin
  +  if not AAuthToken.IsEmpty then
  +  begin
  +    FHttpClient.Request.CustomHeaders.FoldLines := False;
  +    FHttpClient.Request.CustomHeaders.Values['Authorization'] := 'Bearer ' + AAuthToken;
  +  end
  +  else
  +    FHttpClient.Request.CustomHeaders.Values['Authorization'] := '';
   end;
   
   procedure TMARSClient.ExecuteAsync(const AProc: TProc);
  
positive.code:   const AAccept: string; const AAuthToken: string);
  begin
    FHttpClient.Request.Accept := AAccept;
    if not AAuthToken.IsEmpty then
    begin
      FHttpClient.Request.CustomHeaders.FoldLines := False;
      FHttpClient.Request.CustomHeaders.Values['Authorization'] := 'Bearer ' + AAuthToken;
    end;
    FHttpClient.Get(AURL, AResponseContent);
  end;
  
  
negative.code: 
  procedure TMARSClient.Delete(const AURL: string; AResponseContent: TStream; const AAuthToken: string);
  begin
    EndorseAuthorization(AAuthToken);
  {$ifdef DelphiXE7_UP}
    FHttpClient.Delete(AURL, AResponseContent);
  {$else}
  