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:   S: string;
    SL: TStringList;
    I, K: Integer;
    anim: TKMHouseActionType;
  
    procedure AddField(const aField: string); overload;
    begin S := S + aField + ';'; end;
    procedure AddField(aField: Integer); overload;
  