Diese prozedur gängig machen

[ibp]

Die Lösung...

Delphi-Quellcode:

procedure TForm1.DrawModel(Canvas:TCanvas;AtomNr:Real;Rad:integer);
var x0,y0,k,d:integer;
begin
  x0:=Form1.ClientWidth div 2;
  y0:=Form1.ClientHeight div 2;

  // Canvas.Ellipse(x0-Rad,y0-Rad,x0+Rad,y0+Rad); // -> wird in der schleife gezeichnet
  for k:=round(sqrt(AtomNr/2)) downto 1 do    // -> hier war der fehler !!!!
  begin
    d:=Rad*k; // nur einmal berechnet je durchgang!
    Canvas.Ellipse(x0-d,y0-d,x0+d,y0+d); 
  end;
end;

es muss vom äussersten zum kleinsten kreis gezeichnet werden, da alles im kreis neu gezeichnet wird!!!