--- oup/current/FileClasses/_EmptyFile.pas	2007/06/12 17:35:56	214
+++ oup/current/FileClasses/_EmptyFile.pas	2007/07/13 23:15:47	236
@@ -7,9 +7,6 @@ uses
 
 type
   TFile_Empty = class(TFile)
-    protected
-      procedure InitDatLinks; override;
-      procedure InitRawList; override;
     public
       procedure InitDataFields; override;
   end;
@@ -22,20 +19,9 @@ uses
 procedure TFile_Empty.InitDataFields;
 begin
   inherited;
-  FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
+  FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
 end;
 
 
-procedure TFile_Empty.InitDatLinks;
-begin
-  SetLength(FDatLinks, 0);
-end;
-
-
-procedure TFile_Empty.InitRawList;
-begin
-  SetLength(FRawParts, 0);
-end;
-
 end.