Ошибка в хуке клавиатуры

library Hook;
 
uses
  Windows,
  System.SysUtils;
 
{$R *.res}
 
type
  TAction = procedure(code: Integer; wparam: wparam; lparam: lparam) stdcall;
 
var
  SysHook: HHook = 0;
  Action: TAction;
 
function HookAction(code: Integer; wparam: wparam; lparam: lparam)
  : LRESULT stdcall;
begin
  Result := CallNextHookEx(SysHook, code, wparam, lparam);
  if code = HC_ACTION then Action(code, wparam, lparam);
end;
 
procedure SetHook(var Action: TAction);
begin
  SysHook := SetWindowsHookEx(WH_KeyBoard, HookAction, HInstance, 0);
end; //Ошибка после этой строчки
 
procedure UnHook;
begin
  UnhookWindowsHookEx(SysHook);
  SysHook := 0;
end;
 
exports
  SetHook, UnHook;
end.

unit Hook;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  end;
 
  TAction = procedure(code: Integer; wparam: wparam; lparam: lparam) stdcall;
var
  Form1: TForm1;
 
procedure SetHook(Action: TAction); stdcall; external 'Hook.dll';
procedure UnHook; external 'Hook.dll';
 
implementation
 
{$R *.dfm}
 
procedure HookAction(code: Integer; wparam: wparam; lparam: lparam) stdcall;
begin
  Form1.Memo.Lines.Add(string(wparam));
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnHook;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetHook(HookAction);
end;
 
end.

library hook;
 
uses Windows, Messages, SysUtils;
 
var
  cbdHook: hHook = 0;
  Wnd: hWnd;
 
function MsgProc(Code: Integer; wParam: Word; lParam: Longint): LRESULT;
begin
  if (Code = HC_ACTION) then
  begin
    Beep;  //Сюда не доходит
    PostMessage(Wnd, WM_USER + 1, wParam, lParam);
    Result := CallNextHookEx(cbdHook, Code, wParam, lParam);
  end;
end;
 
procedure SetHook(AppWnd: hWnd; Hook: Boolean); stdcall; export;
begin
  beep;  //Сюда тоже
  if Hook then
  begin
    if cbdHook = 0 then
    begin
      cbdHook := SetWindowsHookEx(WH_KEYBOARD, @MsgProc, HInstance, 0);
      Wnd := AppWnd;
    end;
  end else
  begin
    if cbdHook <> 0 then
      UnHookWindowsHookEx(cbdHook);
    cbdHook := 0;
  end;
end;
 
exports SetHook name 'SetHook';
 
begin
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure WMUser1(var Msg: TWMKey); message WM_USER + 1;
  end;
 
var
  Form1: TForm1;
 
procedure SetHook(AppWnd: hWnd; Hook: boolean) stdcall; external 'hook.dll';
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormShow(Sender: TObject);
begin
  SetHook(Handle, True);
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SetHook(0, False);
end;
 
procedure TForm1.WMUser1(var Msg: TWMKey);
begin
  Memo1.Lines.Text := Memo1.Lines.Text + Char(Msg.CharCode);
end;
 
end.