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

procedure TForm1.Timer1Timer(Sender: TObject);

begin
  planet.hide;
  inc(planet.x,planet.v);
  planet.y:=round(sonne.y-(SQRT((planet.abstand*planet.abstand)-(sonne.x-planet.x)*(sonne.x-planet.x))));
  planet.show;

end;					

1:
2:
3:
4:

ystep:=SQRT ((planet.abstand*planet.abstand)-(sonne.x-planet.x)*(sonne.x-planet.x));
if merkur.y>0 then merkur.y:=merkur.y-ystep else merkur.y:=merkur.y+step;
xstep:=SQRT ((planet.abstand*planet.abstand)-(sonne.y-planet.y)*(sonne.y-planet.y));
if merkur.x>0 then merkur.x:=merkur.x-xstep else merkur.x:=merkur.x+xstep;					

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

procedure TForm1.Timer1Timer(Sender: TObject);

begin
  planet.hide;
  planet.ystep:=round(SQRT (abs((40000)-(sonne.x-planet.x)*(sonne.x-planet.x))));
  if planet.y>0 then planet.y:=planet.y-planet.ystep else planet.y:=sonne.y+planet.ystep;
  planet.xstep:=round(SQRT (abs((40000)-(sonne.y-planet.y)*(sonne.y-planet.y))));
  if planet.x>0 then planet.x:=planet.x-planet.xstep else planet.x:=sonne.x+planet.xstep;
  planet.show;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
  TKreis = class
      x,y,r: word;
      Farbe: longint;

      procedure show;
      procedure hide;
  end;

  TPlanet = class
    x,y,r,v,abstand: word;
    farbe: longint;
    phi: word;
    xstep, ystep: word;


    procedure show;
    procedure hide;

  end;