anchor.diff:      AddField(fItems[HT].StoneCost);
       AddField(fItems[HT].ResProductionX);
       SL.Append(S);
  +
       for I := 1 to 4 do
       begin
         S := '';
  
positive.code:         AddField(fItems[HT].BuildArea[I, K]);
        SL.Append(S);
      end;
      S := '';
      SL.Append(S);
    end;
  
negative.code: 
  implementation
  uses
    TypInfo, KromUtils, KM_Outline, KM_Points, KM_PolySimplify, KM_ResTexts, KM_ResUnits;
  
  
  type
  