anchor.diff:  begin
     FAuthToken := AAuthToken;
     BeforeExecute;
  +  FireBeforeExecute(AURL, Self);
   end;
   
   procedure TMARSCustomClient.Put(const AURL: string; AContent, AResponse: TStream;
  
positive.code: begin
    FAuthToken := AAuthToken;
    BeforeExecute;
  end;
  
  class function TMARSCustomClient.RegisterBeforeExecute(
  
negative.code: begin
    FAuthToken := AAuthToken;
    BeforeExecute;
    FireBeforeExecute(AURL, Self);
  end;
  
  destructor TMARSCustomClient.Destroy;
  