diff --git a/funcext/tvclib/utslvclstdctl.tsf b/funcext/tvclib/utslvclstdctl.tsf
index 1ebb4de..4d8e4f5 100644
--- a/funcext/tvclib/utslvclstdctl.tsf
+++ b/funcext/tvclib/utslvclstdctl.tsf
@@ -6766,11 +6766,15 @@ type tedolist = class()
     flockct; //¼ÆÊý
     flist; //Á´±í
 end 
-
-initialization
+function uinit();
+begin
 {$ifdef linux}
-class(tUIglobalData).uisetdata("G_T_TTIMER_",class(TCustomTimer));
-class(TCustomTimer)._wapi.SetTimer(nil,10000,100,getwinprocptr(2));
+    class(tUIglobalData).uisetdata("G_T_TTIMER_",class(TCustomTimer));
+    o := new TSLUIBASE();
+    o._wapi.SetTimer(nil,10000,100,getwinprocptr(2));
 {$endif}
+end 
+initialization
+uinit();
 
 end.
\ No newline at end of file