diff --git a/lcl/interfaces/carbon/carbonwinapi.inc b/lcl/interfaces/carbon/carbonwinapi.inc
index 5f80140609..2fa1825568 100644
--- a/lcl/interfaces/carbon/carbonwinapi.inc
+++ b/lcl/interfaces/carbon/carbonwinapi.inc
@@ -2055,6 +2055,11 @@ begin
       Result := GetCarbonThemeMetric(kThemeMetricScrollBarMinThumbHeight);
     SM_SWSCROLLBARSPACING:
       Result:=0;
+    SM_CYCAPTION:
+      begin
+        Result := GetCarbonThemeMetric(kThemeMetricTitleBarControlsHeight);
+        Result := Result + (Result div 2) + 1;
+      end;
   else
     DebugLn('TCarbonWidgetSet.GetSystemMetrics TODO ', DbgS(NIndex));;
   end;