diff --git a/hb_main.lfm b/hb_main.lfm
index c6fedeb..ab0c927 100644
--- a/hb_main.lfm
+++ b/hb_main.lfm
@@ -23358,7 +23358,7 @@ object Form1: TForm1
           Top = 142
           Width = 246
           Caption = 'Tissue Analysis'
-          OnClick = Button9Click
+          OnClick = Button21Click
           TabOrder = 9
         end
       end
diff --git a/hb_main.pas b/hb_main.pas
index 78e6fdd..a8916ca 100644
--- a/hb_main.pas
+++ b/hb_main.pas
@@ -188,6 +188,7 @@   TForm1 = class(TForm)
     procedure Button19Click(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure Button20Click(Sender: TObject);
+    procedure Button21Click(Sender: TObject);
     procedure Button22Click(Sender: TObject);
     procedure Button23Click(Sender: TObject);
     procedure Button24Click(Sender: TObject);
@@ -3423,6 +3424,13 @@ procedure TForm1.Button8Click(Sender: TObject);
 end;
 
 procedure TForm1.Button9Click(Sender: TObject);
+begin
+
+  hb_insprecision.Form7.Visible := True;
+
+end;
+
+procedure TForm1.Button21Click(Sender: TObject);
 begin
 
   hb_tissue_analysis.Form16.UpdateTissueList;