[antol]

ART, спасибо

у меня была подобная идея, но в этом случае несовместимы

Point:Tpoint; //Координаты точки
Mass[t-x1].x:=x;
Mass[t-x1].y:=y;


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