kreise ineinander zeichnen

[Christian18]

Hallo,

ich will einen Kreis zeichnen und in diesen Kreis sind auch kreise im gleichen abstand zueinander. Die anzahl der Kreise soll in einer Variablen festgehalten werden. wie mache ich das??? Ich hatte mit zwei schleifen gedacht. funktioniert aber leider nicht. hier mal mein code der funktioniert

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var i  : TImage;
      r  : Integer;
      mx : Integer;
      my : Integer;
      k  : Integer;
begin
  i:=Image1;
  mx:=i.Width div 2;
  my:=i.Height div 2;

  if i.Height<i.Width then r:=i.Height div 2 - 10 else r:=i.Width div 2 - 10;

  i.Canvas.MoveTo(mx+r, my);

  for k:=0 to 360 do
    begin
      i.Canvas.LineTo(Round(mx+r*cos(k*Pi/180)), Round(my-r*sin(k*Pi/180)));
    end;
end;