Index: /oup/current/FileClasses/_Extensions.pas
===================================================================
--- /oup/current/FileClasses/_Extensions.pas	(revision 228)
+++ /oup/current/FileClasses/_Extensions.pas	(revision 228)
@@ -0,0 +1,67 @@
+unit _Extensions;
+
+interface
+
+type
+  TExtension = class
+    private
+      FConnectionID: Integer;
+      FFiles: array of Integer;
+      function GetFile(ID: Integer): Integer;
+      function GetFileCount: Integer;
+    public
+      constructor Create(ConnectionID: Integer; Ext: String); virtual;
+      procedure InitList;
+      property Files[ID: Integer]: Integer read GetFile;
+      property FileCount: Integer read GetFileCount;
+  end;
+
+
+implementation
+
+uses
+  Classes, StrUtils, SysUtils, ConnectionManager, TypeDefs;
+
+{ TExtension }
+
+constructor TExtension.Create(ConnectionID: Integer; Ext: String);
+var
+  files: TStrings;
+  i: Integer;
+  fid: Integer;
+  finfo: TFileInfo;
+begin
+  files := TStringList.Create;
+  files := ConManager.Connection[FConnectionID].GetFilesList(Ext, '', False, ST_NameAsc);
+  if files.Count > 0 then
+  begin
+    for i := 0 to files.Count - 1 do
+    begin
+      fid := StrToInt(MidStr(files.Strings[i], 1, 5));
+      finfo := ConManager.Connection[FConnectionID].GetFileInfo(fid);
+      if Length(finfo.Name) > 0 then
+      begin
+        SetLength(FFiles, Length(FFiles) + 1);
+        FFiles[High(FFiles)] := fid;
+      end;
+    end;
+  end;
+  files.Free;
+end;
+
+function TExtension.GetFile(ID: Integer): Integer;
+begin
+  Result := FFiles[ID];
+end;
+
+function TExtension.GetFileCount: Integer;
+begin
+  Result := Length(FFiles);
+end;
+
+procedure TExtension.InitList;
+begin
+Exit;
+end;
+
+end.
Index: /oup/current/FileClasses/_MetaManager.pas
===================================================================
--- /oup/current/FileClasses/_MetaManager.pas	(revision 227)
+++ /oup/current/FileClasses/_MetaManager.pas	(revision 228)
@@ -2,139 +2,5 @@
 interface
 
-uses _FileTypes,
-  ABNA, AGDB, AGQC, AGQG, AGQM, AGQR, AISA, AITR, AIWA, AKAA, AKBA, AKBP, AKDA,
-  AKEV, AKOT, AKVA, BINA, CBPI, CBPM, CONS, CRSA, DOOR, DPge, EDIA, ENVP, FILM,
-  FXLR, GMAN, HPge, IDXA, IGHH, IGPA, IGPG, IGSA, IGSt, Impt, IPge, KeyI, M3GA,
-  M3GM, M3TA, Mtrl, NMSA, OBAN, OBDC, OBLS, OBOA, OFGA, ONCC, ONCP, ONCV, ONFA,
-  ONGS, ONIA, ONLD, ONLV, ONMA, ONOA, ONSA, ONSK, ONTA, ONVL, ONWC, OPge, OSBD,
-  OTIT, OTLF, PLEA, PNTA, PSpc, PSpL, PSUI, QTNA, QUDA, SNDD, StNA, SUBT, TMFA,
-  TMRA, TRAC, TRAM, TRAS, TRBS, TRCM, TRFT, TRGA, TRGE, TRIA, TRIG, TRMA, TRSC,
-  TRTA, TSFF, TSFL, TSFT, TSGA, TStr, TURR, TXAN, TXCA, TXMA, TXMB, TXMP, TXPC,
-  TxtC, UUEA, UVDL, VCRA, WMCL, WMDD, WMM_, WMMB, WPge,
-  _EmptyFile;
-
-type
-  TFileType = class of TFile;
-  TFileDesc = record
-    ext: String;
-    ftype: TFileType;
-  end;
-
-const
-  FileDescs: array[0..112] of TFileDesc = (
-    (ext: 'ABNA'; ftype: TFile_ABNA),
-    (ext: 'AGDB'; ftype: TFile_AGDB),
-    (ext: 'AGQC'; ftype: TFile_AGQC),
-    (ext: 'AGQG'; ftype: TFile_AGQG),
-    (ext: 'AGQM'; ftype: TFile_AGQM),
-    (ext: 'AGQR'; ftype: TFile_AGQR),
-    (ext: 'AISA'; ftype: TFile_AISA),
-    (ext: 'AITR'; ftype: TFile_AITR),
-    (ext: 'AIWA'; ftype: TFile_AIWA),
-    (ext: 'AKAA'; ftype: TFile_AKAA),
-    (ext: 'AKBA'; ftype: TFile_AKBA),
-    (ext: 'AKBP'; ftype: TFile_AKBP),
-    (ext: 'AKDA'; ftype: TFile_AKDA),
-    (ext: 'AKEV'; ftype: TFile_AKEV),
-    (ext: 'AKOT'; ftype: TFile_AKOT),
-    (ext: 'AKVA'; ftype: TFile_AKVA),
-    (ext: 'BINA'; ftype: TFile_BINA),
-    (ext: 'CBPI'; ftype: TFile_CBPI),
-    (ext: 'CBPM'; ftype: TFile_CBPM),
-    (ext: 'CONS'; ftype: TFile_CONS),
-    (ext: 'CRSA'; ftype: TFile_CRSA),
-    (ext: 'DOOR'; ftype: TFile_DOOR),
-    (ext: 'DPge'; ftype: TFile_DPge),
-    (ext: 'EDIA'; ftype: TFile_EDIA),
-    (ext: 'ENVP'; ftype: TFile_ENVP),
-    (ext: 'FILM'; ftype: TFile_FILM),
-    (ext: 'FXLR'; ftype: TFile_FXLR),
-    (ext: 'GMAN'; ftype: TFile_GMAN),
-    (ext: 'HPge'; ftype: TFile_HPge),
-    (ext: 'IDXA'; ftype: TFile_IDXA),
-    (ext: 'IGHH'; ftype: TFile_IGHH),
-    (ext: 'IGPA'; ftype: TFile_IGPA),
-    (ext: 'IGPG'; ftype: TFile_IGPG),
-    (ext: 'IGSA'; ftype: TFile_IGSA),
-    (ext: 'IGSt'; ftype: TFile_IGSt),
-    (ext: 'Impt'; ftype: TFile_Impt),
-    (ext: 'IPge'; ftype: TFile_IPge),
-    (ext: 'KeyI'; ftype: TFile_KeyI),
-    (ext: 'M3GA'; ftype: TFile_M3GA),
-    (ext: 'M3GM'; ftype: TFile_M3GM),
-    (ext: 'M3TA'; ftype: TFile_M3TA),
-    (ext: 'Mtrl'; ftype: TFile_Mtrl),
-    (ext: 'NMSA'; ftype: TFile_NMSA),
-    (ext: 'OBAN'; ftype: TFile_OBAN),
-    (ext: 'OBDC'; ftype: TFile_OBDC),
-    (ext: 'OBLS'; ftype: TFile_OBLS),
-    (ext: 'OBOA'; ftype: TFile_OBOA),
-    (ext: 'OFGA'; ftype: TFile_OFGA),
-    (ext: 'ONCC'; ftype: TFile_ONCC),
-    (ext: 'ONCP'; ftype: TFile_ONCP),
-    (ext: 'ONCV'; ftype: TFile_ONCV),
-    (ext: 'ONFA'; ftype: TFile_ONFA),
-    (ext: 'ONGS'; ftype: TFile_ONGS),
-    (ext: 'ONIA'; ftype: TFile_ONIA),
-    (ext: 'ONLD'; ftype: TFile_ONLD),
-    (ext: 'ONLV'; ftype: TFile_ONLV),
-    (ext: 'ONMA'; ftype: TFile_ONMA),
-    (ext: 'ONOA'; ftype: TFile_ONOA),
-    (ext: 'ONSA'; ftype: TFile_ONSA),
-    (ext: 'ONSK'; ftype: TFile_ONSK),
-    (ext: 'ONTA'; ftype: TFile_ONTA),
-    (ext: 'ONVL'; ftype: TFile_ONVL),
-    (ext: 'ONWC'; ftype: TFile_ONWC),
-    (ext: 'OPge'; ftype: TFile_OPge),
-    (ext: 'OSBD'; ftype: TFile_OSBD),
-    (ext: 'OTIT'; ftype: TFile_OTIT),
-    (ext: 'OTLF'; ftype: TFile_OTLF),
-    (ext: 'PLEA'; ftype: TFile_PLEA),
-    (ext: 'PNTA'; ftype: TFile_PNTA),
-    (ext: 'PSpc'; ftype: TFile_PSpc),
-    (ext: 'PSpL'; ftype: TFile_PSpL),
-    (ext: 'PSUI'; ftype: TFile_PSUI),
-    (ext: 'QTNA'; ftype: TFile_QTNA),
-    (ext: 'QUDA'; ftype: TFile_QUDA),
-    (ext: 'SNDD'; ftype: TFile_SNDD),
-    (ext: 'StNA'; ftype: TFile_StNA),
-    (ext: 'SUBT'; ftype: TFile_SUBT),
-    (ext: 'TMFA'; ftype: TFile_TMFA),
-    (ext: 'TMRA'; ftype: TFile_TMRA),
-    (ext: 'TRAC'; ftype: TFile_TRAC),
-    (ext: 'TRAM'; ftype: TFile_TRAM),
-    (ext: 'TRAS'; ftype: TFile_TRAS),
-    (ext: 'TRBS'; ftype: TFile_TRBS),
-    (ext: 'TRCM'; ftype: TFile_TRCM),
-    (ext: 'TRFT'; ftype: TFile_TRFT),
-    (ext: 'TRGA'; ftype: TFile_TRGA),
-    (ext: 'TRGE'; ftype: TFile_TRGE),
-    (ext: 'TRIA'; ftype: TFile_TRIA),
-    (ext: 'TRIG'; ftype: TFile_TRIG),
-    (ext: 'TRMA'; ftype: TFile_TRMA),
-    (ext: 'TRSC'; ftype: TFile_TRSC),
-    (ext: 'TRTA'; ftype: TFile_TRTA),
-    (ext: 'TSFF'; ftype: TFile_TSFF),
-    (ext: 'TSFL'; ftype: TFile_TSFL),
-    (ext: 'TSFT'; ftype: TFile_TSFT),
-    (ext: 'TSGA'; ftype: TFile_TSGA),
-    (ext: 'TStr'; ftype: TFile_TStr),
-    (ext: 'TURR'; ftype: TFile_TURR),
-    (ext: 'TXAN'; ftype: TFile_TXAN),
-    (ext: 'TXCA'; ftype: TFile_TXCA),
-    (ext: 'TXMA'; ftype: TFile_TXMA),
-    (ext: 'TXMB'; ftype: TFile_TXMB),
-    (ext: 'TXMP'; ftype: TFile_TXMP),
-    (ext: 'TXPC'; ftype: TFile_TXPC),
-    (ext: 'TxtC'; ftype: TFile_TxtC),
-    (ext: 'UUEA'; ftype: TFile_UUEA),
-    (ext: 'UVDL'; ftype: TFile_UVDL),
-    (ext: 'VCRA'; ftype: TFile_VCRA),
-    (ext: 'WMCL'; ftype: TFile_WMCL),
-    (ext: 'WMDD'; ftype: TFile_WMDD),
-    (ext: 'WMM_'; ftype: TFile_WMM_),
-    (ext: 'WMMB'; ftype: TFile_WMMB),
-    (ext: 'WPge'; ftype: TFile_WPge)
-  );
+uses _MetaTypes;
 
 type
@@ -142,4 +8,5 @@
     protected
       FFiles: array of TFile;
+      FRoot: array of TExtension;
       FConnectionID: Integer;
       function GetFileCount: Integer;
@@ -162,5 +29,6 @@
 
 uses
-  Classes, ConnectionManager, Access_OniArchive, TypeDefs, Dialogs, SysUtils, StrUtils;
+  Classes, ConnectionManager, Access_OniArchive, TypeDefs,
+  Dialogs, SysUtils, StrUtils;
 
 { TFileManager }
@@ -198,5 +66,5 @@
           if FileDescs[typei].ext = finfo.Extension then
           begin
-            FFiles[id] := TFileType(FileDescs[typei].ftype).Create(FConnectionID, id);
+            FFiles[id] := TFileClass(FileDescs[typei].ftype).Create(FConnectionID, id);
             Break;
           end;
@@ -253,5 +121,5 @@
             if FileDescs[typei].ext = finfo.Extension then
             begin
-              FFiles[fid] := TFileType(FileDescs[typei].ftype).Create(FConnectionID, fid);
+              FFiles[fid] := TFileClass(FileDescs[typei].ftype).Create(FConnectionID, fid);
               Break;
             end;
Index: /oup/current/FileClasses/_MetaTypes.pas
===================================================================
--- /oup/current/FileClasses/_MetaTypes.pas	(revision 228)
+++ /oup/current/FileClasses/_MetaTypes.pas	(revision 228)
@@ -0,0 +1,148 @@
+unit _MetaTypes;
+
+interface
+
+uses
+  _FileTypes, _EmptyFile, _DataTypes, _Extensions,
+  ABNA, AGDB, AGQC, AGQG, AGQM, AGQR, AISA, AITR, AIWA, AKAA, AKBA, AKBP, AKDA,
+  AKEV, AKOT, AKVA, BINA, CBPI, CBPM, CONS, CRSA, DOOR, DPge, EDIA, ENVP, FILM,
+  FXLR, GMAN, HPge, IDXA, IGHH, IGPA, IGPG, IGSA, IGSt, Impt, IPge, KeyI, M3GA,
+  M3GM, M3TA, Mtrl, NMSA, OBAN, OBDC, OBLS, OBOA, OFGA, ONCC, ONCP, ONCV, ONFA,
+  ONGS, ONIA, ONLD, ONLV, ONMA, ONOA, ONSA, ONSK, ONTA, ONVL, ONWC, OPge, OSBD,
+  OTIT, OTLF, PLEA, PNTA, PSpc, PSpL, PSUI, QTNA, QUDA, SNDD, StNA, SUBT, TMFA,
+  TMRA, TRAC, TRAM, TRAS, TRBS, TRCM, TRFT, TRGA, TRGE, TRIA, TRIG, TRMA, TRSC,
+  TRTA, TSFF, TSFL, TSFT, TSGA, TStr, TURR, TXAN, TXCA, TXMA, TXMB, TXMP, TXPC,
+  TxtC, UUEA, UVDL, VCRA, WMCL, WMDD, WMM_, WMMB, WPge;
+
+type
+  TFile = _FileTypes.TFile;
+  TFile_Empty = _EmptyFile.TFile_Empty;
+  TExtension = _Extensions.TExtension;
+
+  TFileClass = class of TFile;
+  TFileDesc = record
+    ext: String;
+    ftype: TFileClass;
+  end;
+
+const
+  FileDescs: array[0..112] of TFileDesc = (
+    (ext: 'ABNA'; ftype: TFile_ABNA),
+    (ext: 'AGDB'; ftype: TFile_AGDB),
+    (ext: 'AGQC'; ftype: TFile_AGQC),
+    (ext: 'AGQG'; ftype: TFile_AGQG),
+    (ext: 'AGQM'; ftype: TFile_AGQM),
+    (ext: 'AGQR'; ftype: TFile_AGQR),
+    (ext: 'AISA'; ftype: TFile_AISA),
+    (ext: 'AITR'; ftype: TFile_AITR),
+    (ext: 'AIWA'; ftype: TFile_AIWA),
+    (ext: 'AKAA'; ftype: TFile_AKAA),
+    (ext: 'AKBA'; ftype: TFile_AKBA),
+    (ext: 'AKBP'; ftype: TFile_AKBP),
+    (ext: 'AKDA'; ftype: TFile_AKDA),
+    (ext: 'AKEV'; ftype: TFile_AKEV),
+    (ext: 'AKOT'; ftype: TFile_AKOT),
+    (ext: 'AKVA'; ftype: TFile_AKVA),
+    (ext: 'BINA'; ftype: TFile_BINA),
+    (ext: 'CBPI'; ftype: TFile_CBPI),
+    (ext: 'CBPM'; ftype: TFile_CBPM),
+    (ext: 'CONS'; ftype: TFile_CONS),
+    (ext: 'CRSA'; ftype: TFile_CRSA),
+    (ext: 'DOOR'; ftype: TFile_DOOR),
+    (ext: 'DPge'; ftype: TFile_DPge),
+    (ext: 'EDIA'; ftype: TFile_EDIA),
+    (ext: 'ENVP'; ftype: TFile_ENVP),
+    (ext: 'FILM'; ftype: TFile_FILM),
+    (ext: 'FXLR'; ftype: TFile_FXLR),
+    (ext: 'GMAN'; ftype: TFile_GMAN),
+    (ext: 'HPge'; ftype: TFile_HPge),
+    (ext: 'IDXA'; ftype: TFile_IDXA),
+    (ext: 'IGHH'; ftype: TFile_IGHH),
+    (ext: 'IGPA'; ftype: TFile_IGPA),
+    (ext: 'IGPG'; ftype: TFile_IGPG),
+    (ext: 'IGSA'; ftype: TFile_IGSA),
+    (ext: 'IGSt'; ftype: TFile_IGSt),
+    (ext: 'Impt'; ftype: TFile_Impt),
+    (ext: 'IPge'; ftype: TFile_IPge),
+    (ext: 'KeyI'; ftype: TFile_KeyI),
+    (ext: 'M3GA'; ftype: TFile_M3GA),
+    (ext: 'M3GM'; ftype: TFile_M3GM),
+    (ext: 'M3TA'; ftype: TFile_M3TA),
+    (ext: 'Mtrl'; ftype: TFile_Mtrl),
+    (ext: 'NMSA'; ftype: TFile_NMSA),
+    (ext: 'OBAN'; ftype: TFile_OBAN),
+    (ext: 'OBDC'; ftype: TFile_OBDC),
+    (ext: 'OBLS'; ftype: TFile_OBLS),
+    (ext: 'OBOA'; ftype: TFile_OBOA),
+    (ext: 'OFGA'; ftype: TFile_OFGA),
+    (ext: 'ONCC'; ftype: TFile_ONCC),
+    (ext: 'ONCP'; ftype: TFile_ONCP),
+    (ext: 'ONCV'; ftype: TFile_ONCV),
+    (ext: 'ONFA'; ftype: TFile_ONFA),
+    (ext: 'ONGS'; ftype: TFile_ONGS),
+    (ext: 'ONIA'; ftype: TFile_ONIA),
+    (ext: 'ONLD'; ftype: TFile_ONLD),
+    (ext: 'ONLV'; ftype: TFile_ONLV),
+    (ext: 'ONMA'; ftype: TFile_ONMA),
+    (ext: 'ONOA'; ftype: TFile_ONOA),
+    (ext: 'ONSA'; ftype: TFile_ONSA),
+    (ext: 'ONSK'; ftype: TFile_ONSK),
+    (ext: 'ONTA'; ftype: TFile_ONTA),
+    (ext: 'ONVL'; ftype: TFile_ONVL),
+    (ext: 'ONWC'; ftype: TFile_ONWC),
+    (ext: 'OPge'; ftype: TFile_OPge),
+    (ext: 'OSBD'; ftype: TFile_OSBD),
+    (ext: 'OTIT'; ftype: TFile_OTIT),
+    (ext: 'OTLF'; ftype: TFile_OTLF),
+    (ext: 'PLEA'; ftype: TFile_PLEA),
+    (ext: 'PNTA'; ftype: TFile_PNTA),
+    (ext: 'PSpc'; ftype: TFile_PSpc),
+    (ext: 'PSpL'; ftype: TFile_PSpL),
+    (ext: 'PSUI'; ftype: TFile_PSUI),
+    (ext: 'QTNA'; ftype: TFile_QTNA),
+    (ext: 'QUDA'; ftype: TFile_QUDA),
+    (ext: 'SNDD'; ftype: TFile_SNDD),
+    (ext: 'StNA'; ftype: TFile_StNA),
+    (ext: 'SUBT'; ftype: TFile_SUBT),
+    (ext: 'TMFA'; ftype: TFile_TMFA),
+    (ext: 'TMRA'; ftype: TFile_TMRA),
+    (ext: 'TRAC'; ftype: TFile_TRAC),
+    (ext: 'TRAM'; ftype: TFile_TRAM),
+    (ext: 'TRAS'; ftype: TFile_TRAS),
+    (ext: 'TRBS'; ftype: TFile_TRBS),
+    (ext: 'TRCM'; ftype: TFile_TRCM),
+    (ext: 'TRFT'; ftype: TFile_TRFT),
+    (ext: 'TRGA'; ftype: TFile_TRGA),
+    (ext: 'TRGE'; ftype: TFile_TRGE),
+    (ext: 'TRIA'; ftype: TFile_TRIA),
+    (ext: 'TRIG'; ftype: TFile_TRIG),
+    (ext: 'TRMA'; ftype: TFile_TRMA),
+    (ext: 'TRSC'; ftype: TFile_TRSC),
+    (ext: 'TRTA'; ftype: TFile_TRTA),
+    (ext: 'TSFF'; ftype: TFile_TSFF),
+    (ext: 'TSFL'; ftype: TFile_TSFL),
+    (ext: 'TSFT'; ftype: TFile_TSFT),
+    (ext: 'TSGA'; ftype: TFile_TSGA),
+    (ext: 'TStr'; ftype: TFile_TStr),
+    (ext: 'TURR'; ftype: TFile_TURR),
+    (ext: 'TXAN'; ftype: TFile_TXAN),
+    (ext: 'TXCA'; ftype: TFile_TXCA),
+    (ext: 'TXMA'; ftype: TFile_TXMA),
+    (ext: 'TXMB'; ftype: TFile_TXMB),
+    (ext: 'TXMP'; ftype: TFile_TXMP),
+    (ext: 'TXPC'; ftype: TFile_TXPC),
+    (ext: 'TxtC'; ftype: TFile_TxtC),
+    (ext: 'UUEA'; ftype: TFile_UUEA),
+    (ext: 'UVDL'; ftype: TFile_UVDL),
+    (ext: 'VCRA'; ftype: TFile_VCRA),
+    (ext: 'WMCL'; ftype: TFile_WMCL),
+    (ext: 'WMDD'; ftype: TFile_WMDD),
+    (ext: 'WMM_'; ftype: TFile_WMM_),
+    (ext: 'WMMB'; ftype: TFile_WMMB),
+    (ext: 'WPge'; ftype: TFile_WPge)
+  );
+
+
+implementation
+
+end.
Index: /oup/current/OniUnPacker.bdsproj
===================================================================
--- /oup/current/OniUnPacker.bdsproj	(revision 227)
+++ /oup/current/OniUnPacker.bdsproj	(revision 228)
@@ -176,7 +176,5 @@
 			<Language Name="ProjectLang">$00000000</Language>
 			<Language Name="RootDir"></Language>
-		</Language>  
-    
-    <Excluded_Packages>
+		</Language>  <Excluded_Packages>
       <Excluded_Packages Name="d:\programme\borland\bds\3.0\Bin\dbwebxprt.bpl">Borland Web Wizard Package</Excluded_Packages>
     </Excluded_Packages>
Index: /oup/current/OniUnPacker.dpr
===================================================================
--- /oup/current/OniUnPacker.dpr	(revision 227)
+++ /oup/current/OniUnPacker.dpr	(revision 228)
@@ -150,5 +150,7 @@
   RawEdit in 'Tools\RawEdit.pas' {Form_RawEdit},
   TxmpReplace in 'Tools\TxmpReplace.pas' {Form_TxmpReplace},
-  FileManager in 'Tools\FileManager.pas' {Form_FileManager};
+  FileManager in 'Tools\FileManager.pas' {Form_FileManager},
+  _Extensions in 'FileClasses\_Extensions.pas',
+  _MetaTypes in 'FileClasses\_MetaTypes.pas';
 
 {$R *.res}
Index: /oup/current/Tools/FileManager.dfm
===================================================================
--- /oup/current/Tools/FileManager.dfm	(revision 227)
+++ /oup/current/Tools/FileManager.dfm	(revision 228)
@@ -1,5 +1,4 @@
 inherited Form_FileManager: TForm_FileManager
   Caption = 'Form_FileManager'
-  OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
Index: /oup/current/Tools/FileManager.pas
===================================================================
--- /oup/current/Tools/FileManager.pas	(revision 227)
+++ /oup/current/Tools/FileManager.pas	(revision 228)
@@ -5,8 +5,9 @@
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, _BaseTemplate, StdCtrls, ExtCtrls;
+  Dialogs, _TemplateFileList, Menus, VirtualTrees, StdCtrls, Buttons, ComCtrls,
+  ExtCtrls;
 
 type
-  TForm_FileManager = class(TForm_BaseTemplate)
+  TForm_FileManager = class(TForm_TemplateFileList)
     procedure FormCreate(Sender: TObject);
   private
@@ -16,6 +17,6 @@
 
 implementation
+
 {$R *.dfm}
-
 
 procedure TForm_FileManager.NewCon(ID: Integer);
@@ -34,3 +35,5 @@
 end;
 
+
 end.
+