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