anchor.diff:  		property Spellbook: AnsiString  index 17 read GetBySlotNumber write SetBySlotNumber;
       property Misc5: AnsiString      index 18 read GetBySlotNumber write SetBySlotNumber;
   
  -    property Backpack: TStrings read GetBackpack;
  +    property Backpack: TStrings read GetBackpack stored IsBackpackStored;
     end;
   
     { TReward }
  
positive.code:     FBackpack: TStrings;
      function GetBackpack: TStrings;
      function GetBySlotNumber(ASlotID: Integer): AnsiString;
      procedure SetBySlotNumber(ASlotID: Integer; AValue: AnsiString);
  
    public
      constructor Create(AOwner: IReferenceNotify);
      destructor Destroy; override;
  
      property BySlotNumber[ASlotID: Integer]: AnsiString read GetBySlotNumber write SetBySlotNumber;
  
      function IsEmpty: Boolean;
  
      procedure Clear;
    published
      property Head: AnsiString       index 0 read GetBySlotNumber write SetBySlotNumber;
  
negative.code: 
  end;
  
  function THeroArtifacts.IsBackpackStored: Boolean;
  begin
    Result := FBackpack.Count > 0;
  end;
  
  procedure THeroArtifacts.SetBySlotNumber(ASlotID: Integer; AValue: AnsiString);
  var
    idx: Integer;
  