Ja, dir fehlt noch eine Kleinigkeit...
Delphi-Quellcode:
with Image3.Canvas do begin
d:=Image3.Height div 2;
c:=Image3.Width div 2;
if d < c then
b:=d
else
b:=c;
for a:=0 to 10 do begin
Brush.Color:=clRed;
Rectangle(c-b, d-b, c+b, d+b);
Brush.Color:=clYellow;
Ellipse(c-b, d-b, c+b, d+b);
b:=round(2*sqrt(2)*(b div 4));
end;
end;