anchor.diff:    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;
  +  EndorseAuthorization(AAuthToken);
     FHttpClient.Get(AURL, AResponseContent);
   end;
   
  
positive.code: 
  procedure TMARSClient.Delete(const AURL: string; AResponseContent: TStream; const AAuthToken: string);
  begin
    if not AAuthToken.IsEmpty then
    begin
      FHttpClient.Request.CustomHeaders.FoldLines := False;
      FHttpClient.Request.CustomHeaders.Values['Authorization'] := 'Bearer ' + AAuthToken;
    end;
  {$ifdef DelphiXE7_UP}
    FHttpClient.Delete(AURL, AResponseContent);
  {$else}
  
negative.code: 
  procedure TMARSClient.Post(const AURL: string; AContent, AResponse: TStream; const AAuthToken: string);
  begin
    EndorseAuthorization(AAuthToken);
    FHttpClient.Post(AURL, AContent, AResponse);
  end;
  
  procedure TMARSClient.Put(const AURL: string; AContent, AResponse: TStream; const AAuthToken: string);
  begin
    EndorseAuthorization(AAuthToken);
    FHttpClient.Put(AURL, AContent, AResponse);
  end;
  
  