fix, editor lclref count <> 0 when closed using a shortcut

CHANGELOG.md

@@ -4,6 +4,7 @@
 
 - Editor tabs: caption not updated when split page is closed using the File menu or the shortcut.
 - Editor shortcuts: no applied to current editor until restart or file close/reopen.
+- Editor: fix possible freeze when closed using a shortcut.
 
 # v3.9.9
 

src/u_editor.pas

@@ -631,7 +631,10 @@ begin
   showWidget;
   doc.disableFileDateCheck:=true;
   pageControl.pageIndex:=index;
-  doc.Free;
+  if doc.LCLRefCount > 0 then
+    application.ReleaseComponent(doc)
+  else
+    doc.Free;
   result := true;
 end;