diff --git a/designer/utslsynmemo.tsf b/designer/utslsynmemo.tsf
index 011cef4..af080d0 100644
--- a/designer/utslsynmemo.tsf
+++ b/designer/utslsynmemo.tsf
@@ -1659,10 +1659,11 @@ type TTsfFileParser = class //
         end else 
         begin 
             s := d["value"];
-            if not(s and ifstring(s)) then return rt ;               
+            if not(s and ifstring(s)) then return rt ;  
+            if length(s)=8 and  lowercase(s)="function" then return rt;            
+            if length(s)=9 and  lowercase(s)="procedure" then return rt;            
             r := tsl_tokenizeex_2_(s,1);
             if not( r and  ifarray(r)) then return rt;
-
             cls := array();
             ScriptDelBlocks(r["blcks"],str2array(s,"\n"),cls);
             r["blcks"] := cls;                                        
diff --git a/funcext/tvclib/uvclthreadworker.tsf b/funcext/tvclib/uvclthreadworker.tsf
index 2256f60..01f4436 100644
--- a/funcext/tvclib/uvclthreadworker.tsf
+++ b/funcext/tvclib/uvclthreadworker.tsf
@@ -98,7 +98,7 @@ type TCustomThreadworker = class()
         if not FThreaders then return ;
         for idx,i in mrows(   FThreaders,1) do 
         begin
-            o := FThreaders[i]; 
+            o := FThreaders[i];             
             if uifeachthreadworkerdata(o.handle,msg,data) then 
             begin
                 case msg of
diff --git a/tsl语言本地编辑器.docx b/tsl语言本地编辑器.docx
index ccaf1d8..d12e0c7 100644
Binary files a/tsl语言本地编辑器.docx and b/tsl语言本地编辑器.docx differ