--- oup/current/FileClasses/AKVA.pas	2007/07/17 22:27:16	241
+++ oup/current/FileClasses/AKVA.pas	2007/11/26 11:02:28	248
@@ -6,7 +6,7 @@ uses
   _FileTypes;
 
 type
-  TFile_AKVA = class(TFile)
+  TFile_AKVA = class(TResource)
     public
       procedure InitDataFields; override;
   end;
@@ -22,7 +22,7 @@ begin
   FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
   with FDataFields do
   begin
-    AddField(TFileID, 'FileID', '', []);
+    AddField(TResourceID, 'FileID', '', []);
     AddField(TLevelID, 'LevelID', '', []);
 
     AddField(TUnused, 'Unused data', '', [20]);