Перемещение окна с помощью клавиатуры

Данная программа осуществляет перемещение графического окна с помощью клавиатуры:

uses GraphABC;

procedure KeyDown(Key: integer);
begin
   case Key of
  VK_Left:  Window.Left := Window.Left - 2;
  VK_Right: Window.Left := Window.Left + 2;
  VK_Up:    Window.Top := Window.Top - 2;
  VK_Down:  Window.Top := Window.Top + 2;
   end;
end;

begin
  // Привязка обработчиков к событиям
  OnKeyDown := KeyDown;
end.