diff --git a/lcl/interfaces/carbon/carbongdiobjects.pp b/lcl/interfaces/carbon/carbongdiobjects.pp
index ee80c15f65..1e9c22e880 100644
--- a/lcl/interfaces/carbon/carbongdiobjects.pp
+++ b/lcl/interfaces/carbon/carbongdiobjects.pp
@@ -524,7 +524,6 @@ procedure TScanObject.ScanConvex;
 var
   PData, P: PByte;
   X, Xe, Y, SX,EX: Integer;
-  LC, C: Byte;
   {$ifdef DumpRegion}
   Line: string;
   {$endif}
diff --git a/lcl/interfaces/carbon/carbonwinapi.inc b/lcl/interfaces/carbon/carbonwinapi.inc
index 080bd4180d..a2b7f5a868 100644
--- a/lcl/interfaces/carbon/carbonwinapi.inc
+++ b/lcl/interfaces/carbon/carbonwinapi.inc
@@ -3927,12 +3927,12 @@ end;
 
 function TCarbonWidgetSet.ShowScrollBar(Handle: HWND; wBar: Integer;
   bShow: Boolean): Boolean;
-var
-  CarbonControl: TCarbonControl;
+//var
+//  CarbonControl: TCarbonControl;
 begin
   Result:=false;
 
-  CarbonControl := TCarbonControl(Handle);
+  //CarbonControl := TCarbonControl(Handle);
 
   // ToDo: