挂钩函数的调用问题，希望大家帮帮我，谢谢！

Question

错误提示：[Error] Main.dpr(87): Local procedure/function 'HookProc' assigned to procedure variable
程序语句为：hHook:=SetWindowsHookEx(WH_JOURNALRECORD, HookProc, HInstance, 0);

Answer 1

HookProc不能是SetWindowsHookEx所在过程的子过程，比如以下是错误的：procedure TForm1.Button1Click(Sender: TObject);
  function  HookProc(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;
  begin
    //……
  end;
begin
  SetWindowsHookEx(WH_JOURNALRECORD, HookProc, HInstance, 0);
end;HookProc应该是一个全局例程————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

我的程序是这样的：
function HookProc(iCode: integer; wParam: wParam; lParam: lParam): LResult; stdcall;
var
   s:string;
   Pos: TPoint;
begin
程序
end;
procedure loginpopedom;
begin
 hHook:=SetWindowsHookEx(WH_JOURNALRECORD, HookProc, HInstance, 0);
end;请大侠帮帮我！