diff --git a/lcl/interfaces/cocoa/cocoawsspin.pas b/lcl/interfaces/cocoa/cocoawsspin.pas
index 3e906716ed..3c6d6e27d8 100644
--- a/lcl/interfaces/cocoa/cocoawsspin.pas
+++ b/lcl/interfaces/cocoa/cocoawsspin.pas
@@ -69,6 +69,8 @@ begin
   lSpin.decimalPlaces := -1;
   lSpin.lclCreateSubcontrols(AParams);
   lSpin.callback := TLCLCommonCallback.Create(lSpin, AWinControl);
+  if (lSpin.Stepper.isKindOfClass(TCocoaSpinEditStepper)) then
+    TCocoaSpinEditStepper(lSpin.Stepper).callback:=lSpin.callback;
 end;
 
 class procedure TCocoaWSCustomFloatSpinEdit.DestroyHandle(const AWinControl: TWinControl);