diff --git a/packages/fcl-image/src/fpcanvas.inc b/packages/fcl-image/src/fpcanvas.inc
index 8439c5b135..9586656dd1 100644
--- a/packages/fcl-image/src/fpcanvas.inc
+++ b/packages/fcl-image/src/fpcanvas.inc
@@ -586,8 +586,8 @@ procedure TFPCustomCanvas.Erase;
 var
   x,y:Integer;
 begin
-  for x:=0 to Width-1 do
-    for y:=0 to Height-1 do
+  for y:=0 to Height-1 do
+    for x:=0 to Width-1 do
       Colors[x,y]:=colTransparent;
 end;