Ellipsen zeichnen

[KucukMelek]

Hallo alle zusammen,

also irgendwie fühl ich mich hier wie ein zwerg, hab versucht, zu verstehn, was ihr alles schreibt, komm mir aber echt vor wie in China

naja...auf jeden fall machen wir grad in der schule in informatik so eine aufgabe, die ich wirklich nicht verstehe...

wir sollen durch buttonklick eine ellipse zeichnen. Und bei jedem klick auf button soll eine weitere ellipse, im halben radius von dem vorherigen ist, in die ellipse gezeichnet werden, und das so lange, bis der radius 3 ist.... Wie mach ich das???

ich hab mal so angefangen, weiß aber nicht weiter

procedure TForm1.Button1Click(Sender: TObject);

begin
canvas.Brush.color:=random($FFFFF);
Canvas.Ellipse(0,0,form1.clientheight,form1.client width);
repeat
canvas.Ellipse(0 - (form1.ClientHeight div 2), 0 - (form1.clientwidth div 2), form1.ClientHeight div 2, form1.ClientWidth div 2);
until ??????