diff --git a/lcl/include/rasterimage.inc b/lcl/include/rasterimage.inc
index 6e7481e116..d2dd539e3f 100644
--- a/lcl/include/rasterimage.inc
+++ b/lcl/include/rasterimage.inc
@@ -586,6 +586,9 @@ begin
     if AImage.Description.Format = ricfNone then Exit; // empty image
 
     img := GetRawImagePtr;
+    if img = @AImage then //copy to self => no op
+      exit;
+    img^.FreeData;
     img^.Description := AImage.Description;
     if ADataOwner
     then begin