diff --git a/funcext/tvclib/tslvcl.tsf b/funcext/tvclib/tslvcl.tsf
index 9329b9b..481dec9 100644
--- a/funcext/tvclib/tslvcl.tsf
+++ b/funcext/tvclib/tslvcl.tsf
@@ -530,9 +530,16 @@ type tapplication=class(tcomponent)
     function Notification(a,op);override;
     begin
         inherited;
-        if a=Fmainform and op="recycling" then 
-        begin
-            Fmainform := nil;  
+        if op="recycling" then 
+        begin 
+            if a=Fmainform  then 
+            begin
+                Fmainform := nil;  
+            end 
+            if FApplicationWindow=a then 
+            begin
+                FApplicationWindow := nil;    
+            end 
         end 
     end 
     function createform(classname,varable);
@@ -4951,8 +4958,7 @@ type tapplicationwindow=class(TWinControl)
     end
     Function DoWMCLOSE(o,e);override;
     begin
-        //Recycling();
-        DestroyComponents();
+        Recycling();
         _wapi.PostQuitMessage(0);
     end
     function DoCnNotify(o,e);override;