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

[Виталюкас]

Помогите пожалуйста. Решить вот такое задание.Изобразить шар, брошенный в верхнем левом углу PaintBox горизонтально и движущийся в соответствии с законами тяготения, пока не достигнет нижней границы.

[Stilet]

А с чем помочь то?

[Виталюкас]

Сообщение от Stilet

А с чем помочь то?

помогите пожалуйста написать изменение координат для полета шарика, чтото совсем не получается

[Виталюкас]

есть вот такой вариант, здесь он летает отбиваясь от стенок PaitBox а надо чтобы летел с верхнего левого угла PaintBox (как сказано в заданиии)

[bitSoft]

sazdayioshi BMP, i pri onPaint v PaintBox, pishi coordinaty BMP

[Виталюкас]

если нетрудно внесите коррекции в код и выложите вариант

[Виталюкас]

Сообщение от bitSoft

sazdayioshi BMP, i pri onPaint v PaintBox, pishi coordinaty BMP

чтото я вас не совсем понел

[Виталюкас]

помогите пожалуйста доделать вот код еще одной чтото работает но не так как хотелось бы

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;