diff --git a/designer/utslcodeeditor.tsf b/designer/utslcodeeditor.tsf
index 76e9057..b5ea2a6 100644
--- a/designer/utslcodeeditor.tsf
+++ b/designer/utslcodeeditor.tsf
@@ -5191,15 +5191,17 @@ type TFindWnd=class(TPage)
             begin
                 s := s1;
             end else
-            s := it.CaretWords();
-            if s then SetFindText(s);
+                s := it.CaretWords();
+            SetFindText(s);
             FEdit_target.Editer.SetFocus();
         end
         inherited;
     end
     Function SetFindText(s); //设置查找的字符串
     begin
-        FEdit_target.Editer.Text := s;
+        if s then 
+            FEdit_target.Editer.Text := s;
+        else s := FEdit_target.Editer.Text;
         FEdit_target.Editer.SetSel(0,length(s));
     end
     function SaveCurrentEditer(); //保存一下数据
diff --git a/funcext/tvclib/ugtkinterface.tsf b/funcext/tvclib/ugtkinterface.tsf
index 91febd3..eefcd7e 100644
--- a/funcext/tvclib/ugtkinterface.tsf
+++ b/funcext/tvclib/ugtkinterface.tsf
@@ -4617,8 +4617,11 @@ type tenterouterlist = class
     begin
         FIndex := -1;
         FList := array();  
-        FTimer.stop();
-        FTimer := nil;  
+        if FTimer then 
+        begin 
+            FTimer.stop();
+            FTimer := nil;  
+        end 
     end 
     Mousemovecall;
     Mousehittest;
@@ -4628,6 +4631,7 @@ type tenterouterlist = class
     FLock;
     FIndex ;
     FList;
+    FTimer; //20230314 修正此处问题
 end 
 type tgtk_ctl_object = class(_gtkeventtype) 
     private 
diff --git a/plugin/TSLUIL.dll b/plugin/TSLUIL.dll
index 0c49b68..8edda23 100644
Binary files a/plugin/TSLUIL.dll and b/plugin/TSLUIL.dll differ