diff --git a/lcl/interfaces/carbon/carbonlclintf.inc b/lcl/interfaces/carbon/carbonlclintf.inc
index ee915e1f2c..1e41e654da 100644
--- a/lcl/interfaces/carbon/carbonlclintf.inc
+++ b/lcl/interfaces/carbon/carbonlclintf.inc
@@ -534,7 +534,6 @@ var
   Desc: TRawImageDescription absolute ARawImage.Description;
   displayID: CGDirectDisplayID;
   ScreenImage: CGImageRef;
-  dataProvider: CGDataProviderRef;
 begin
   Result := False;
 
@@ -551,7 +550,7 @@ begin
   { Get's a screenshot }
   displayID := CGMainDisplayID();
   ScreenImage := grabViaOpenGL(displayID, CGDisplayBounds(displayID));
-  dataProvider := CGImageGetDataProvider(ScreenImage);
+  //dataProvider := CGImageGetDataProvider(ScreenImage);
 
   { Fills the image description }
   ARawImage.Init;
diff --git a/lcl/interfaces/carbon/carbonobject.inc b/lcl/interfaces/carbon/carbonobject.inc
index e6b2fb6dbe..9d06d5cf25 100644
--- a/lcl/interfaces/carbon/carbonobject.inc
+++ b/lcl/interfaces/carbon/carbonobject.inc
@@ -106,7 +106,6 @@ var
   QuitHandler: EventHandlerRef;
   TmpSpec: EventTypeSpec;
   Loop: TApplicationMainLoop = nil;
-  Dummy: LongWord;
 begin
   // Get our TApplicationMainLoop
   Result := noErr;