Update tslvcl.tsf

application

funcext/tvclib/tslvcl.tsf

@@ -530,10 +530,17 @@ type tapplication=class(tcomponent)
     function Notification(a,op);override;
     begin
         inherited;
-        if a=Fmainform and op="recycling" then 
+        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);
     begin
@@ -4951,8 +4958,7 @@ type tapplicationwindow=class(TWinControl)
     end
     Function DoWMCLOSE(o,e);override;
     begin
-        //Recycling();
+        Recycling();
-        DestroyComponents();
         _wapi.PostQuitMessage(0);
     end
     function DoCnNotify(o,e);override;