diff --git a/lcl/interfaces/carbon/carbonwinapi.inc b/lcl/interfaces/carbon/carbonwinapi.inc
index d9360ab261..a5f6d884a9 100644
--- a/lcl/interfaces/carbon/carbonwinapi.inc
+++ b/lcl/interfaces/carbon/carbonwinapi.inc
@@ -440,6 +440,7 @@ begin
 
     Result := TCarbonBitmap(ImgHandle);
   finally
+    ARawImage.FreeData;
     DstImage.Free;
   end;
 end;