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:   Memo1.Text := animData;
  end;
  
  end.
  
negative.code:       Inc(Result);
    end;
  
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  