anchor.diff:    published
       property DefaultMediaType: string read FDefaultMediaType write FDefaultMediaType;
       property DefaultContentType: string read FDefaultContentType write FDefaultContentType;
  -    [Stored('IsAppNameStored')]
  -    property AppName: string read FAppName write FAppName stored IsAppNameStored;
  +    [Default(DEFAULT_APPNAME)]
  +    property AppName: string read FAppName write FAppName;
       property Client: TMARSCustomClient read FClient write FClient;
       property Path: string read GetPath;
       property OnError: TMARSClientErrorEvent read FOnError write FOnError;
  
positive.code:     FDefaultContentType: string;
      FClient: TMARSCustomClient;
      FOnError: TMARSClientErrorEvent;
      function IsAppNameStored: Boolean;
    protected
      function GetPath: string; virtual;
      procedure AssignTo(Dest: TPersistent); override;
  
negative.code:   Result := TMARSURL.CombinePath([LEngine, AppName])
  end;
  
  procedure TMARSClientApplication.Notification(AComponent: TComponent;
    Operation: TOperation);
  begin
  