1:
2:
3:
4:
5:
6:
7:
8:
9:

if mode = true then
 y1_neu:= y1_neu + 1;
if mode = false then
 y1_neu:= y1_neu - 1;
if y1_neu = 104 then
 mode := false;
if y1_neu = 1 then
 mode:=true;
 x1_neu:= (round(sqr(y1_neu* -1) + 2704));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.BitBtn1Click(Sender: TObject);
var i, x1_neu, y1_neu, Radius : Integer;
    mode : Boolean;
begin
  y1_neu:=0;
  mode:=True;
  Radius:=52;
  for i:=1 to 4*Radius do
    begin
      if mode
        then y1_neu:= y1_neu + 1
        else y1_neu:= y1_neu - 1;
      if y1_neu = 104 then
        mode:= false;
      if y1_neu = 0 then
        mode:=true;
      if mode
        then x1_neu:= 52+round(sqrt((Sqr(Radius)-(sqr(Radius-y1_neu)))))
        else x1_neu:= 52-round(sqrt((Sqr(Radius)-(sqr(Radius-y1_neu)))));
      Image1.Canvas.Pixels[x1_neu, y1_neu]:=clBlack;
      Application.ProcessMessages;
      Sleep(10);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

//Startwerte
dsin:=1/r;
dcos := sqrt(1-dsin^2(a));
si := 0;
co:= r;
//Da sin(phi) ~ Phi für kleine Winkel ~0.1 im Bogenmas (5,7 Grad)
schritte := 2*pi*r;// Ach genau, der Umfang des Kreises ;-)

For i ;= 1 to Schritte do
  begin
  BewegeZu(co,si);//zeichne x+r,y+r zum Beispiel als Test auf ein canvas zeichnen, deshalb verschoben um r
  //nächster Wineklschritt:
  tmpSi:= si;
  //sin (a+d)
  si := si*dcos+co*dsin;
  //cos(a+d);// tmpSi weil si ja schon geändert
  co := co*cosd-tmpSi*sind;

  end;