diff --git a/lcl/interfaces/cocoa/cocoawscommon.pas b/lcl/interfaces/cocoa/cocoawscommon.pas index 1894ce8400..5b41bbf698 100644 --- a/lcl/interfaces/cocoa/cocoawscommon.pas +++ b/lcl/interfaces/cocoa/cocoawscommon.pas @@ -1986,8 +1986,5 @@ begin end; end; -initialization - ASyncLCLControlAdjustSizer:= TASyncLCLControlAdjustSizer.Create; - end. diff --git a/lcl/interfaces/cocoa/cocoawsscrollers.pas b/lcl/interfaces/cocoa/cocoawsscrollers.pas index 426ee74c07..26a7da3c40 100644 --- a/lcl/interfaces/cocoa/cocoawsscrollers.pas +++ b/lcl/interfaces/cocoa/cocoawsscrollers.pas @@ -6,7 +6,7 @@ unit CocoaWSScrollers; interface uses - Classes, LCLType, Controls, Forms, + Classes, SysUtils, LCLType, Controls, Forms, CocoaAll, MacOSAll, CocoaPrivate, CocoaScrollers, CocoaUtils, cocoa_extra; type @@ -166,5 +166,8 @@ end; initialization ASyncLCLControlAdjustSizer:= TASyncLCLControlAdjustSizer.Create; +finalization + FreeAndNil( ASyncLCLControlAdjustSizer ); + end.