Move creation of tablecomment from application startup to a place where it's done on demand.

source/tblcomment.pas

@@ -30,8 +30,7 @@ type
     { Public declarations }
   end;
 
-var
-  tablecomment: Ttablecomment;
+  function tablecommentWindow(AOwner: TComponent): Boolean;
 
 implementation
 
@@ -39,6 +38,21 @@ uses Childwin, helpers, Main;
 
 {$R *.DFM}
 
+{**
+  Create form on demand
+  @param TComponent Owner of form (should be calling form)
+  @return Boolean Form closed using modalresult mrOK
+}
+function tablecommentWindow(AOwner: TComponent): Boolean;
+var
+  f : Ttablecomment;
+begin
+  f := Ttablecomment.Create(AOwner);
+  Result := (f.ShowModal=mrOK);
+  FreeAndNil(f);
+end;
+
+
 procedure Ttablecomment.ButtonCancelClick(Sender: TObject);
 begin
   close;