anchor.diff:      FDefaultContentType: string;
       FClient: TMARSCustomClient;
       FOnError: TMARSClientErrorEvent;
  -    function IsAppNameStored: Boolean;
     protected
       function GetPath: string; virtual;
       procedure AssignTo(Dest: TPersistent); override;
  
positive.code:   Result := TMARSURL.CombinePath([LEngine, AppName])
  end;
  
  function TMARSClientApplication.IsAppNameStored: Boolean;
  begin
    Result := FAppName <> DEFAULT_APPNAME;
  end;
  
  procedure TMARSClientApplication.Notification(AComponent: TComponent;
    Operation: TOperation);
  begin
  
negative.code:   published
      property DefaultMediaType: string read FDefaultMediaType write FDefaultMediaType;
      property DefaultContentType: string read FDefaultContentType write FDefaultContentType;
      [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;
  