diff --git a/lcl/graphutil.pp b/lcl/graphutil.pp
index 1129ab0f09..ded4961a42 100644
--- a/lcl/graphutil.pp
+++ b/lcl/graphutil.pp
@@ -371,6 +371,9 @@ var
   srcImg: TLazIntfImage = nil;
   destCanvas: TLazCanvas = nil;
 begin
+  if (AImage.Width = AWidth) and (AImage.Height = AHeight) then
+    exit;
+
   try
     // Create the source LazIntfImage
     srcImg := AImage.CreateIntfImage;