- if getasynckeystate(vk_up) <> 0 then
 - begin
 - my_x := my_x-0.4*sin(degtorad(rot))*timefactor;
 - my_y := my_y+0.4*cos(degtorad(rot))*timefactor;
 - end;
 - if getasynckeystate(vk_down) <> 0 then
 - begin
 - my_x := my_x+0.4*sin(degtorad(rot))*timefactor;
 - my_y := my_y-0.4*cos(degtorad(rot))*timefactor;
 - end;
 

