Движение фигуры

[Виталюкас]

помогите пожалуйста доработать код

var
  Form1: TForm1;
  x,y,dx,dy,phi:integer;
implementation

{$R *.dfm}
procedure elipse;
begin
  phi:=20;
  if (x=Form1.PaintBox1.Left-Form1.Shape1.Left) and (y=Form1.PaintBox1.Top-Form1.Shape1.Top) then
    begin
      dx:=round(3*cos(phi*3.14/180));
      dy:=round(3*sin(phi*3.14/180)*20);
    end;
  x:=x+dx;
  y:=y+dy;
  Form1.Shape1.Top:=x;
  Form1.Shape1.Left:=y;
  Form1.Timer1.Enabled:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  dx:=0;
  dy:=1;
  Form1.Timer1.Enabled:=True;
  Form1.Timer1.Interval:=50;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  elipse;
end;

надо чтобы шарик летел соблюдая закон притяжения, но ветер и всё остальное учитывать ненадо

[SERG1980]

http://tihont.wordpress.com/4-движен...о-под-углом-к/

[SERG1980]

Вот глянь пример