Как Организовать Цикл С Действиями На Клавиатуре?

[Sascha]

Как организовать цикл с действиями на клавиатуре?
Нажимаем клавиши вверх, вниз, влево, вправо и по форме движется картинка.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case   key of
   vk_LEFT: Image1.Left:=Image1.Left-2;
   VK_RIGHT: Image1.Left:=Image1.Left+2;
   vk_UP: Image1.Top:=Image1.Top-2;
   VK_DOWN:Image1.Top:=Image1.Top+2;
end;
end;