--- oup/current/Tools/MetaEditor.pas	2007/06/15 15:12:11	217
+++ oup/current/Tools/MetaEditor.pas	2007/06/20 10:57:51	229
@@ -30,8 +30,6 @@ type
   public
   end;
 
-var
-  Form_Meta: TForm_Meta;
 
 implementation
 {$R *.dfm}
@@ -63,12 +61,13 @@ var
   data: TNodeData;
   node: PVirtualNode;
 begin
+{
   if ID >= 0 then
   begin
     QueryPerformanceFrequency(c);
     QueryPerformanceCounter(a);
     if not Assigned(Meta) then
-      Meta := TMetaManager.Create(ID);
+      Meta := TMetaManager.Create(ID, Self);
     QueryPerformanceCounter(b);
     ShowMessage('Loading Done - ' + FloatToStr((b-a)/c) + 's');
 
@@ -86,6 +85,7 @@ begin
     end;
     VST.EndUpdate;
   end;
+}
 end;
 
 
@@ -98,6 +98,7 @@ var
   i: Integer;
   id: Integer;
 begin
+{
   data := VST.GetNodeData(node);
   for i := 0 to Meta.FileById[TFile(data.Field).FileID].ChildCount - 1 do
   begin
@@ -109,6 +110,7 @@ begin
       VST.HasChildren[newnode] := True;
   end;
   ChildCount := Meta.FileById[TFile(data.Field).FileID].ChildCount;
+}
 end;
 
 
@@ -225,7 +227,7 @@ end;
 
 procedure TForm_Meta.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  Meta.Free;
+//  Meta.Free;
   inherited;
 end;
 
@@ -233,7 +235,6 @@ procedure TForm_Meta.FormCreate(Sender:
 begin
   inherited;
   OnNewConnection := NewCon;
-  FConnectionID := -1;
 
   VST.NodeDataSize := SizeOf(TNodeData);
   VST.Font.Charset := AppSettings.CharSet;