Как сделать меню в делфи

[Ulnik1]

Всем здравствуйте.
Очень нужна ваша помощь. Необходимо создать в делфи меню программы, которое бы работало по нажатию клавиш клавиатуры. Т.е. нажимаю 1 на клавиатуре - открывается вторая форма со своим функционалом, нажимаю 2 - третья форма с уже другим функционалом. Код такой:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case key of
#27: Form1.Close;
#49: Form2.ShowModal;

end;
end;
Но при запуске срабатывает только закрытие формы, а все остальные клавиши вызывают ошибку типа raised exception class access violation in address...
Что не так?? помогите пожалуйста

[Баламут]

Во-первых, при инициализации проекта должна присутствовать строка

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;

Если ее нет, то в Unit1 (Form1) в секции implementation пишем uses Unit2;
И далее создаем форму ручками

      #49: begin
               Form2 := TForm2.Create(Self);
               Form2.ShowModal;
             end;

Все должно работать

[xxbesoxx]

Сообщение от Ulnik1

Т.е. нажимаю 1 на клавиатуре - открывается вторая форма со своим функционалом, нажимаю 2 - третья форма

1) в google набрать delphi код клавиши
2) подключить юнита

uses  // Подключение юнита Form2  Form3
  Unit2, Unit3;

{$R *.dfm}

3) В свойстве ShortCut

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  if (Msg.CharCode = VK_NUMPAD1) then
   begin
     Form2.ShowModal;
     Handled := True;
   end
   else
   if (Msg.CharCode = VK_NUMPAD2) then
   begin
     Form3.ShowModal;
     Handled := True;
   end;
end;

end.

Пример: https://yadi.sk/d/o2CmFY6oIR44sg

[Ulnik1]

Большое спасибо за советы, буду пробовать