--- oup/current/FileClasses/_EmptyFile.pas	2007/07/13 23:15:47	236
+++ oup/current/FileClasses/_EmptyFile.pas	2007/07/14 16:50:55	238
@@ -7,21 +7,9 @@ uses
 
 type
   TFile_Empty = class(TFile)
-    public
-      procedure InitDataFields; override;
   end;
 
 implementation
 
-uses
-  ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
-
-procedure TFile_Empty.InitDataFields;
-begin
-  inherited;
-  FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
-end;
-
-
 end.