Отловить нажатие кнопки на форме

[Shouldercannon]

Доброго времени суток! Пытаюсь отловить нажатие кнопки тильда при активной форме. Если форма пустая (нет ни одного контрола), то

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #96 then ShowMessage('Тьльда');
end;

работает нормально. Если на форме есть контролы, то данное событие уже не работает. Смотрел в сторону SetWindowsHookEx, но так и не смог сделать задуманное.

unit Unit1;

...

var
  Form1: TForm1;
  HookHandle: hHook = 0;

implementation

{$R *.dfm}

procedure MyKeyHook(Code: Integer; wParam: LongWord; lParam: LongWord); // Чего-то тут не хватает или вообще неверно написано
begin
  if Code < 0 then
  begin
    CallNextHookEx(HookHandle, Code, wParam, lParam);
    Exit;
  end;

  if (Code = HC_ACTION) and (wParam = 192) and ((LOWORD(lParam) and KF_UP) <> 0) then SHOWMESSAGE('Нажата клавиша Тильда');
  CallNextHookEx(HookHandle, Code, wParam, lParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  HookHandle := SetWindowsHookEx(WH_KEYBOARD, @MyKeyHook, HInstance, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnhookWindowsHookEx(HookHandle);
end;

[min@y™]

а вот так пробовал?

[Shouldercannon]

Сообщение от min@y™

а вот так пробовал?

Работает..