anchor.diff:  begin
     SB := SuffixBase[TSuffixEnum(AItem.Identify)];
     case TSuffixEnum(AItem.Identify) of
  +    // Life
  +    aLife1..aLife7:
  +      begin
  +      
  +      end;
       // Defense
       aDefense1..aDefense7:
         begin
  
positive.code:   SuffixBase: array [TSuffixEnum] of TSuffixBase = (
      // None
      (),
      // Defense
      (Level: (Min: 1; Max: 3); Price: 100; Occurence: DefenseTypeItems; Defense: (Min: 1; Max: 4);),
      (Level: (Min: 2; Max: 5); Price: 200; Occurence: DefenseTypeItems; Defense: (Min: 5; Max: 8);),
  
negative.code: function TAffixes.GetSuffixName(SuffixEnum: TSuffixEnum): string;
  begin
    case SuffixEnum of
      aLife1:
        Result := ' of Life I';
      aLife2:
        Result := ' of Life II';
      aLife3:
        Result := ' of Life III';
      aLife4:
        Result := ' of Life IV';
      aLife5:
        Result := ' of Life V';
      aLife6:
        Result := ' of Life VI';
      aLife7:
        Result := ' of Life VII';
      aDefense1:
        Result := ' of Defense I';
      aDefense2:
  