проверка законов кеплера

[апрол]

Добрый день! Нуждаюсь в помощи мне нужно проверить законы Кеплера с помощью Delphi. Начал писать код, но не знаю, как дальше его писать помогите, пожалуйста

procedure TForm2.BitBtn1Click(Sender: TObject);
  var t,x,r0,y,Vx,Vy,V,Tmax,ax,ay:real;
 const Ms = 10e30;
       V0 = 3e4;
       l1 = 1.5e9;
       G = 6.67E-11; dt =20;
        fi=90;
begin
r0:=5;
 t:=0;
 x:=r0;
 y:=0;
 Vx:=V*cos(fi);
 Vy:=V*sin(fi);
 tmax:=100;
   while t<tmax do
    t:=t+dt;
    ax:=-G*Ms*x/power(sqr(x)-y*y,1.5);
    ay:=-G*Ms*y/power(sqr(x)-y*y,1.5);
   x:=x+Vx*dt+ax*sqr(dt)/2;
   y:=y+Vy*dt+ay*sqr(dt)/2;
   Vx:=Vx+ax*dt;
   Vy:=Vy+ay*dt;
  Series1.AddXY(t,x);


//    x1*x1/a*a+y1*y1/b*b=1
//    x1=x+f;
//    y1=y;
//    sqr(x+f)/a*a+y*y/b*b=1;

//    x*Vy-y*Vx=const;

//    m*V*V=G*m*M/R;
//    sqr(2*pi*R/T)=G*M/R;
//    4*pi*R*R/T*T=G*M/R
//    R*R*R=G*M*T*T/4*pi
//    (R2/R1)*(R2/R1)*(R2/R1)=(T2/T1)*(T2/T1)
//    sqr(a2/a1)=(T2/T1)*(T2/T1)

end;

[pwian]

Для начала
while t<tmax do
begin //забыл написать
...
end //конец while
end; //конец процедуры.

А что это за закон? Что твоя программа должна делать? И что ты закомментировал - это часть твоей программы?

[апрол]

да это часть моей программы это я пробовал записать законы Кеплера, программа должна рисовать солнышко и вокруг него по законам Кеплера должны вращается к примеру Земля и Марс