--- oup/current/FileClasses/AKEV.pas	2007/08/18 16:42:09	246
+++ oup/current/FileClasses/AKEV.pas	2007/11/26 11:02:28	248
@@ -6,7 +6,7 @@ uses
   _FileTypes;
 
 type
-  TFile_AKEV = class(TFile)
+  TFile_AKEV = 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(TLinkByID, 'PNTA-link', 'Link to the 3D Point Array', ['PNTA']);