[RUS_Hacker]

Можно также через код клавиши :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
37: {влево};
39: {вправо};
38: {вверх};
40: {вниз};
end;