From ec2aed9989769cee63256b07c57fcebe42dc51be Mon Sep 17 00:00:00 2001
From: rich2014 <rich2014.git@outlook.com>
Date: Sat, 13 May 2023 20:30:53 +0800
Subject: [PATCH] Fix: Cocoa: memory leaks in TCocoaStepper

---
 lcl/interfaces/cocoa/cocoabuttons.pas | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lcl/interfaces/cocoa/cocoabuttons.pas b/lcl/interfaces/cocoa/cocoabuttons.pas
index 15914add5d..d522ee5531 100644
--- a/lcl/interfaces/cocoa/cocoabuttons.pas
+++ b/lcl/interfaces/cocoa/cocoabuttons.pas
@@ -121,6 +121,9 @@ type
 
     procedure mouseDragged(event: NSEvent); override;
     procedure mouseMoved(event: NSEvent); override;
+
+    function lclGetCallback: ICommonCallback; override;
+    procedure lclClearCallback; override;
   end;
 
 implementation
@@ -202,6 +205,16 @@ begin
     inherited mouseMoved(event);
 end;
 
+function TCocoaStepper.lclGetCallback: ICommonCallback;
+begin
+  Result:= callback;
+end;
+
+procedure TCocoaStepper.lclClearCallback;
+begin
+  callback := nil;
+end;
+
 { TCocoaButton }
 
 procedure TCocoaButton.lclSetFrame(const r: TRect);