Помогите доделать

[Bay]

Мне по заданию нужно заставить обьект двигаться 2-мя способами:
1)Свободно ( Движение с изменяющимся углом (dx – const, dy – variable) с отражением от границ экрана.)
2)С клавиатуры ( Управление функциональными клавишами F1(0,59), F2(0,60), F3(0,61), F4(0,62).

Я сделал с клавиатуры, но никак не могу сделать свободное. Помогите пожалуйста!

Вот мое движение с клавиатуры
procedure dvigenie_2;
begin
cleardevice;
rectangle(0,0,639,478);
x:=100; y:=100;
putimage(x,y,obect^,1);
repeat
begin
c:=readkey;
putimage(x,y,obect^,1);
if c=#59 then begin a:=0; b:=-5; end;
if c=#60 then begin a:=5; b:=0; end;
if c=#61 then begin b:=0; a:=-5; end;
if c=#62 then begin b:=5; a:=0; end;
x:=round(x+a);
y:=y+b;
putimage(x,y,obect^,1);
end;
until (c=#13) or (c=#27);
cleardevice;
end;

[Dj_smart]

Учим синусы и косинусы. А также можно использовать движение по арифметической прогрессии - отнимать(или прибавлять) от высоты переменную, значение которой постеменно увеличивается.