--- oup/current/Main.pas	2007/05/26 18:42:15	197
+++ oup/current/Main.pas	2007/06/04 22:07:29	209
@@ -135,7 +135,7 @@ var
 implementation
 
 uses
-  LevelDB;
+  LevelDB, MetaEditor;
 
 {$R *.dfm}
 
@@ -414,6 +414,7 @@ begin
   tb_rawedit.Enabled := active;
   tb_txmpreplacer.Enabled := active;
   tb_extractor.Enabled := active;
+  tb_meta.Enabled := active;
 //  tb_compare.Enabled := active;
 //  tb_structure.Enabled := active;
 end;
@@ -604,8 +605,33 @@ begin
 end;
 
 procedure TForm_Main.menu_metaClick(Sender: TObject);
-begin
-  ShowMessage('TBD');
+var
+  toolform:    TForm_Meta;
+  i:           Integer;
+  tag:         Integer;
+  iconindex:   Integer;
+begin
+  tag := 1;
+  if MDIChildCount > 0 then
+    for i := 0 to MDIChildCount - 1 do
+      if MDIChildren[i].Tag >= tag then
+        tag := MDIChildren[i].Tag + 1;
+
+  iconindex := -1;
+
+  toolform := nil;
+
+  toolform         := TForm_Meta.Create(Self);
+  toolform.Caption := 'MetaEditor' + ' ' + IntToStr(tag) + '       ';
+  iconindex        := 11;
+
+  if Assigned(toolform) then
+  begin
+    toolform.Name    := 'meta' + IntToStr(tag);
+    toolform.Tag     := tag;
+    MDITab.AddTab(TForm(toolform), iconindex);
+    toolform.Caption := AnsiReplaceStr(toolform.Caption, '       ', '');
+  end;
 end;
 
 procedure TForm_Main.menu_filecompareClick(Sender: TObject);