anchor.diff:          AddField(fItems[HT].BuildArea[I, K]);
         SL.Append(S);
       end;
  +
  +    S := 'Animation;Count;OffsetX;OffsetY';
  +    SL.Append(S);
  +    for anim := Low(TKMHouseActionType) to High(TKMHouseActionType) do
  +    begin
  +      if fItems[HT].fHouseDat.Anim[anim].Count > 0 then
  +      begin
  +        S := '';
  +        AddField(GetEnumName(TypeInfo(TKMHouseActionType), Integer(anim)));
  +        AddField(fItems[HT].fHouseDat.Anim[anim].Count);
  +        AddField(fItems[HT].fHouseDat.Anim[anim].MoveX);
  +        AddField(fItems[HT].fHouseDat.Anim[anim].MoveY);
  +        SL.Append(S);
  +      end;
  +    end;
  +
       S := '';
       SL.Append(S);
     end;
  
positive.code: 
  implementation
  uses
    KromUtils, KM_Outline, KM_Points, KM_PolySimplify, KM_ResTexts, KM_ResUnits;
  
  
  type
  
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;
  