anchor.diff:  
   procedure TMARSClient.Post(const AURL: string; AContent, AResponse: TStream; const AAuthToken: string);
   begin
  -  if not AAuthToken.IsEmpty then
  -  begin
  -    FHttpClient.Request.CustomHeaders.FoldLines := False;
  -    FHttpClient.Request.CustomHeaders.Values['Authorization'] := 'Bearer ' + AAuthToken;
  -  end;
  +  EndorseAuthorization(AAuthToken);
     FHttpClient.Post(AURL, AContent, AResponse);
   end;
   
   procedure TMARSClient.Put(const AURL: string; AContent, AResponse: TStream; const AAuthToken: string);
   begin
  -  if not AAuthToken.IsEmpty then
  -  begin
  -    FHttpClient.Request.CustomHeaders.FoldLines := False;
  -    FHttpClient.Request.CustomHeaders.Values['Authorization'] := 'Bearer ' + AAuthToken;
  -  end;
  +  EndorseAuthorization(AAuthToken);
     FHttpClient.Put(AURL, AContent, AResponse);
   end;
   
  
positive.code: {$ifdef DelphiXE7_UP}
      property WorkerTask: ITask read FWorkerTask;
  {$endif}
    public
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
  
negative.code: 
  procedure TMARSClient.Delete(const AURL: string; AResponseContent: TStream; const AAuthToken: string);
  begin
    EndorseAuthorization(AAuthToken);
  {$ifdef DelphiXE7_UP}
    FHttpClient.Delete(AURL, AResponseContent);
  {$else}
  