From e9baea68d1a0078e68cbda34d8c59a02f69fa9d1 Mon Sep 17 00:00:00 2001
From: rich2014 <rich2014.git@outlook.com>
Date: Fri, 4 Oct 2024 22:22:08 +0800
Subject: [PATCH] Cocoq: release two global variables issue #41170

---
 lcl/interfaces/cocoa/cocoaconfig.pas      | 4 ++++
 lcl/interfaces/cocoa/cocoawscommon.pas    | 3 ---
 lcl/interfaces/cocoa/cocoawsscrollers.pas | 7 +++++--
 3 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/lcl/interfaces/cocoa/cocoaconfig.pas b/lcl/interfaces/cocoa/cocoaconfig.pas
index 639484a5c5..bc5b4686cb 100644
--- a/lcl/interfaces/cocoa/cocoaconfig.pas
+++ b/lcl/interfaces/cocoa/cocoaconfig.pas
@@ -389,5 +389,9 @@ initialization
   CocoaConfigMenu.menuItem.defaultRadioImageName:= NSSTR('NSDatePickerCalendarHome');
 
   CocoaConfigFocusRing:= TCocoaConfigFocusRing.Create;
+
+finalization
+  FreeAndNil( CocoaConfigFocusRing );
+
 end.
 
diff --git a/lcl/interfaces/cocoa/cocoawscommon.pas b/lcl/interfaces/cocoa/cocoawscommon.pas
index 712477dfbd..05bef84646 100644
--- a/lcl/interfaces/cocoa/cocoawscommon.pas
+++ b/lcl/interfaces/cocoa/cocoawscommon.pas
@@ -2076,8 +2076,5 @@ begin
   sv.setBorderType( NSBorderStyle[astyle] );
 end;
 
-initialization
-  ASyncLCLControlAdjustSizer:= TASyncLCLControlAdjustSizer.Create;
-
 end.
 
diff --git a/lcl/interfaces/cocoa/cocoawsscrollers.pas b/lcl/interfaces/cocoa/cocoawsscrollers.pas
index f21d2d4078..54b3bae689 100644
--- a/lcl/interfaces/cocoa/cocoawsscrollers.pas
+++ b/lcl/interfaces/cocoa/cocoawsscrollers.pas
@@ -6,11 +6,11 @@ unit CocoaWSScrollers;
 interface
 
 uses
-  Classes, LCLType, Controls, Forms,
+  Classes, SysUtils, LCLType, Controls, Forms,
   CocoaAll, CocoaPrivate, CocoaCustomControl, CocoaScrollers, CocoaUtils;
 
 type
-  { ASyncLCLControlAdjustSizer }
+  { TASyncLCLControlAdjustSizer }
 
   TASyncLCLControlAdjustSizer = class
   private
@@ -154,5 +154,8 @@ end;
 initialization
   ASyncLCLControlAdjustSizer:= TASyncLCLControlAdjustSizer.Create;
 
+finalization
+  FreeAndNil( ASyncLCLControlAdjustSizer );
+
 end.