Физика в Delphi

[Tesey]

Как изменить процедуру чтобы тело при движении в обратнуюю сторону двигалось по нужному пути?

procedure eiler;
var u,v:integer;
vpar:real;
fx,fy,ax,ay: double;
vper:boolean;
begin
fx:=-m*g*cos(alpha[di])*sin(alpha[di])-k*vx;
fy:=-m*g*sqr(sin(alpha[di]))-k*vy;
m:=1;
ax:=(fx/m);
ay:=fy/m;
vx:=(vx+ax*dt);
vy:=vy+ay*dt;
x2:=x1+vx*dt;
y2:=y1+vy*dt;
if ((x2-xp[di+1])*(x1-xp[di+1])<0) then
begin
di:=di+1;
vel:=sqrt(sqr(vx)+sqr(vy));
vx:=vel*cos(alpha[di]);
vy:=vel*sin(alpha[di]);
end;

xytouv(x2,y2,u,v);
paintbox1.canvas.pen.Color:=clred;
paintbox1.canvas.lineto(u,v);

x1:=x2;
y1:=y2;
if di=j then timer1.Enabled:=false;

end;