diff --git a/lcl/interfaces/cocoa/cocoagdiobjects.pas b/lcl/interfaces/cocoa/cocoagdiobjects.pas
index 9899531d07..e463c2afea 100644
--- a/lcl/interfaces/cocoa/cocoagdiobjects.pas
+++ b/lcl/interfaces/cocoa/cocoagdiobjects.pas
@@ -2380,7 +2380,7 @@ begin
   if FCGPattern <> nil then
   begin
     CGPatternRelease(FCGPattern);
-    FGGPattern := nil;
+    FCGPattern := nil;
   end;
 
   FreeAndNil(FBitmap);
diff --git a/lcl/interfaces/cocoa/cocoawinapi.inc b/lcl/interfaces/cocoa/cocoawinapi.inc
index a409776370..6a4227dac7 100644
--- a/lcl/interfaces/cocoa/cocoawinapi.inc
+++ b/lcl/interfaces/cocoa/cocoawinapi.inc
@@ -1785,9 +1785,9 @@ begin
       Exit;
     Color := ColorToNSColor(PLongArray(lpaRgbValues)^[n]);
     if (FSysColorBrushes[Element] <> 0) then
-      FSysColorBrushes[Element].Color := Color
+      TCocoaBrush(FSysColorBrushes[Element]).Color := Color
     else
-      FSysColorBrushes[Element] := HBrush(TCocoaBrush.Create(SysColorToNSColor(nIndex), True));
+      FSysColorBrushes[Element] := HBrush(TCocoaBrush.Create(Color, True));
   end;
 
   Result := True;