Как подключиться к WH_KEYBOARD для PopupList.Window?

Мне нужно знать, нажата ли F11, когда PopupMenu TrayIcon открыт и завершает программу. Не хочу RegisterHotKey. В документации указано, что «PopupList.Window предоставляет доступ к дескриптору окна скрытого окна, которое обрабатывает сообщения всплывающего меню». Итак, мой план состоит в том, чтобы перехватывать сообщения клавиатуры в этом окне, но вместо этого происходит следующее:

Project Project2.exe поднял класс исключений $C0000005 с сообщением «нарушение доступа по адресу 0x00020003: запись адреса 0x2014fd38».

unit Unit2;

interface

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ImgList, Vcl.Menus, Vcl.ExtCtrls;

type
    TForm2 = class(TForm)
        TrayIcon1: TTrayIcon;
        PopupMenu1: TPopupMenu;
        N11: TMenuItem;
        N21: TMenuItem;
        ImageList1: TImageList;
        procedure PopupMenu1Popup(Sender: TObject);
private
    function hook(code: Integer; w: WPARAM; p : LPARAM): Lresult stdcall;
public
    { Public declarations }
end;

var
    Form2: TForm2;
    HookID: hhook;
implementation

{$R *.dfm}
function TForm2.hook(code: Integer; w: WPARAM; p: LPARAM): Lresult stdcall;
begin
    if code < 0 then
    begin
        Result := CallNextHookEx(0, code, w, p);
        Exit;
    end;

    Result := CallNextHookEx(0, code, w, p);
end;

procedure TForm2.PopupMenu1Popup(Sender: TObject);
begin
    HookID := SetWindowsHookEx(WH_KEYBOARD, @TForm2.hook, 0,
        GetWindowThreadProcessId(PopupList.Window, nil));
end;

end.