Ну почти так...По моему так
Код:
const
a = 10;//Приращение к перемещению (ускорение)
type
TPoint = record//Тип точка
x: word;//Координаты точки
y: word;
end;
var
s: word;//Перемещение в единицу времени
...
OnCreate;
begin
s := 0;//инициализируем переменную
end;
...
OnTimer;
var
Point: TPoint;//Переменнаяточка
begin
Point.x := 100;//Координата X не изменяется
s := s + a;//Перемещение в единицу времени
Point.y := Point.y + s;//Координата увеличивается на перемещение
...
//Дальше расчитав координаты точки в каждый момент времени
//рисуй че хочешь
...
end;
Код писал "на коленке", но принцип таков...