anchor.diff:      procedure DoInterpTree(aTree: Integer; var aPicOffset: Integer; aDryRun: Boolean);
       procedure DoInterpHouseAction(aHT: TKMHouseType; aHouseAct: TKMHouseActionType; var aPicOffset: Integer; aDryRun: Boolean);
       procedure DoInterpBeast(beastHouse, beast, beastAge: Integer; var aPicOffset: Integer; aDryRun: Boolean);
  -  public
  -    { Public declarations }
     end;
   
   var
  
positive.code:     FreeAndNil(StrList);
    end;
  end;
  
  
  
  procedure TForm1.DoInterpUnit(aUT: TKMUnitType; aAction: TKMUnitActionType; aDir: TKMDirection; var aPicOffset: Integer; aDryRun: Boolean);
  
negative.code: uses
    ShellApi, Math, RTTI, KM_FileIO, KromUtils,
    KM_Log, KM_IoPNG, KM_ResWares, KM_ResInterpolation;
  
  {$R *.dfm}
  
  const
    USE_BASE_BEASTS = False;
  