diff --git a/TSLInterp.dll b/TSLInterp.dll
index c9d685a..a1e826b 100644
Binary files a/TSLInterp.dll and b/TSLInterp.dll differ
diff --git a/designer/utslsynmemo.tsf b/designer/utslsynmemo.tsf
index af080d0..d592f89 100644
--- a/designer/utslsynmemo.tsf
+++ b/designer/utslsynmemo.tsf
@@ -1659,9 +1659,8 @@ type TTsfFileParser = class //
         end else 
         begin 
             s := d["value"];
-            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;            
+            if not(s and ifstring(s)) then return rt ; 
+            if errtslcode(s) then return rt;           
             r := tsl_tokenizeex_2_(s,1);
             if not( r and  ifarray(r)) then return rt;
             cls := array();
@@ -1963,7 +1962,12 @@ type TTsfFileParser = class //
                 begin
                     if rdd then 
                     begin 
-                        r := tsl_tokenizeex_2_(rdd,1);
+                        if errtslcode(rdd) then 
+                        begin 
+                            r := array();
+                            rdd := "";
+                        end else            
+                            r := tsl_tokenizeex_2_(rdd,1);
                     end else 
                     begin
                         r := array();
@@ -2078,6 +2082,10 @@ begin
     begin 
         exportfile(ftstream(),"",f,c);
     end 
-
+end 
+function errtslcode(s); //ÅÐ¶Ï function procedure½áβ¸ã²»¶¨
+begin
+    return 0;
+    return 0;
 end 
 end.
\ No newline at end of file
diff --git a/tslkrnl.dll b/tslkrnl.dll
index 5f76f23..d2c51f0 100644
Binary files a/tslkrnl.dll and b/tslkrnl.dll differ