* switch loops in TFPCustomCanvas.Erase closes #40246

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;