Перерисовка канвы нажатием кнопки клавы

[ViNcHeStEr]

Есть такой код:

procedure TForm1.Button2Click(Sender: TObject);
label up;
begin
Canvas.Brush.Color := clblue;
for i:=1 to l do begin
for j:=1 to l do begin
if (mas[x,y]=1) and (mas[x,y-1]=2) then begin
mas[x,y-1]:=1;
mas[x,y]:=3;
vivod;
showmessage('Òû ïîáåäèë!');
goto up;
end;
if (mas[x,y]=1) and (mas[x,y-1]=3) then begin
mas[x,y-1]:=1;
mas[x,y]:=3;
ai;
vivod;
goto up;
end;
if (mas[x,y]=1) and (mas[x,y-1]=4) then begin
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=true;
goto up;
end;
end;
end;
up:
end;

Как сделать чтобы этот код выполнялся не по нажатию Button2, а по нажатию кнопки UP на клавиатуре?

[Манжосов Денис :)]

FormKeyDown процедуру создай и там:

if Key = VK_UP then
// твой код

[ViNcHeStEr]

Спасибо! Всё работает.

[DomiNick]

И ещё надо бы задать свойство формы KeyPreview в True...
На всякий...