diff --git a/lcl/interfaces/carbon/carbonlclintf.inc b/lcl/interfaces/carbon/carbonlclintf.inc
index a78b6015f2..ee915e1f2c 100644
--- a/lcl/interfaces/carbon/carbonlclintf.inc
+++ b/lcl/interfaces/carbon/carbonlclintf.inc
@@ -564,7 +564,6 @@ begin
   ARawImage.Data := GetImagePixelData(ScreenImage, ARawImage.DataSize);
 
   { clean-up }
-  CGDataProviderRelease(dataProvider);
   CGImageRelease(ScreenImage);
 
   Result := True;