Привязка к клавишам

uses graphABC;
var x,y,r:integer;
    f:boolean;
procedure KeyDown(key:integer);
begin
case key of
vk_up:if y>r then y:=y-5;
vk_down:if y<windowheight-r then y:=y+5;
vk_left:if x>r then x:=x-5;
vk_right:if x<windowwidth-r then x:=x+5;
vk_space:f:=false
end;
end;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
f:=true;
r:=15;
textout(windowwidth div 2-80,0,'Управление стрелками');
textout(windowwidth div 2-50,20,'Выход - Esc');
setpenwidth(3);
setpencolor(clRed);
circle(x,y,r);
lockdrawing;
repeat
clearwindow;
textout(windowwidth div 2-80,0,'Управление стрелками');
textout(windowwidth div 2-50,20,'Выход - Spase');
OnKeyDown := KeyDown;
circle(x,y,r);
sleep(100);
redraw;
until f=false;
end.

procedure Strelki(klavisha:integer);//управление стрелками
var w:integer; 
begin
w:=390;
if klavisha=VK_Left then gorizontal:=gorizontal-15
else if klavisha=VK_Right then  gorizontal:=gorizontal+15;
 
if klavisha=VK_Space then begin
m:=Picture.Create('luch.png');
repeat
m.Draw(gorizontal+25,w);
 dec(w); 
sleep(2);
until w=0;
end;
end;