anchor.diff:  {$ifdef DelphiXE7_UP}
       property WorkerTask: ITask read FWorkerTask;
   {$endif}
  +    procedure EndorseAuthorization(const AAuthToken: string);
     public
       constructor Create(AOwner: TComponent); override;
       destructor Destroy; override;
  
positive.code: begin
    FHttpClient.Free;
    inherited;
  end;
  
  procedure TMARSClient.ExecuteAsync(const AProc: TProc);
  
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;
  
  