Сочетание клавиш в программе

if msg.Result = 0 then exit;
 
    case Chr(Msg.CharCode) of
      'X':
        if i = 0 then
          inc(i)
        else
          i := 0;
      'A':
        if i = 1 then
          inc(i)
        else
          i := 0;
      'K':
        if i = 2 then
          inc(i)
        else
          i := 0;
      'E':
        if i = 3 then
          inc(i)
        else
          i := 0;
      'R':
        if i = 4 then
          begin
            ShowMessage('xaker');
            i := 0;
          end
        else
          i := 0;
    end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Form2 := TForm2.Create(Application); // Çàñòàâêà
  Form2.ShowModal;
  Application.OnMessage := AppMessage; // Ïåðåõâàò÷èê ñîáûòèé
end;

program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1); // создается Form1
  //  Application.CreateForm(TForm2, Form2); // Form2 здесь не создаем
  Application.Run;
end.

procedure TForm1.FormShow(Sender: TObject);
begin
  Form2 := TForm2.Create(Application); // Заставка
  Form2.ShowModal;
  Application.OnMessage := AppMessage; // Перехватчик событий
end;

Application.OnMessage := AppMessage;