Rectangle und Ellipse

[VeGA]

also mein quelltext sieht so aus... klappt aber nicht

With Image3.Canvas do
Begin;
d:=200;
c:=0;
b:=200;
for a:=0 to 10 do
Begin;
brush.color:=clred;
Rectangle(c,d-b,c+b,d);
b:=3*(b div 4);
brush.color:=clyellow;
Ellipse(c,d-b,c+b,d);

End;
End;

komme irgendwie aber auhc nicht weiter