--- oup/current/FileClasses/TXAN.pas	2007/06/12 16:42:53	212
+++ oup/current/FileClasses/TXAN.pas	2007/06/12 17:00:48	213
@@ -24,6 +24,7 @@ var
   temps: String;
   templist: TStringList;
 begin
+  inherited;
   FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
   templist := TStringList.Create;
   with FDataFields do