--- oup/current/FileClasses/TXAN.pas	2007/06/12 17:00:48	213
+++ oup/current/FileClasses/TXAN.pas	2007/06/12 17:35:56	214
@@ -9,8 +9,9 @@ type
   TFile_TXAN = class(TFile)
     protected
       procedure InitDatLinks; override;
-      procedure InitDataFields; override;
       procedure InitRawList; override;
+    public
+      procedure InitDataFields; override;
   end;
 
 implementation
@@ -21,12 +22,9 @@ uses
 procedure TFile_TXAN.InitDataFields;
 var
   tempi: Integer;
-  temps: String;
-  templist: TStringList;
 begin
   inherited;
   FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
-  templist := TStringList.Create;
   with FDataFields do
   begin
     AddField(TFileID, $00, 'FileID', '', nil);
@@ -48,12 +46,12 @@ begin
     tempi := 2;
     AddField(TUnused, $1A, 'Unused', '', @tempi);
 
+    tempi := 2;
     with AddField(TArray, $1C, 'AnimTextures array', '', @tempi) do
     begin
       AddField(TLinkByID, $00, 'Texture', '', nil);
     end;
   end;
-  templist.Free;
 end;