Delphide İç İçe Kare Oluşturmak

Var
Mx,my integer
Begin
Randomize
x:= trunc ( random*form1.width);
y:= trunc ( random*form1.height);
Fori:= 10 down to do
Canvas. Rectangle(x+i*10, y+i*10,x-i*10,y-i*10);