请问delphi中如何进去调试hook的回调函数和消息处理函数

代码是从ＣＳＤＮ下的
function StartSpy(dwThreadID : DWORD; hTarget: THandle): boolean; stdcall;
begin
  Result := false;

  if g_bSpyStart then StopSpy;

  if (dwThreadID <> 0) then
  begin
  g_dwTarget := dwThreadID;
  g_dwThreadID:= GetCurrentThreadID;
  g_hSpyHook := SetWindowsHookEx(WH_GETMESSAGE, @GetMsgProc, hInstance, dwThreadID);
  g_hTargetWin:= hTarget;

  Result:= (g_hSpyHook <> 0);

  if Result then
  begin
  Result:= PostThreadMessage(dwThreadID, WM_STARTSPY, g_dwThreadID, g_hTargetWin);
  Sleep(100);
  g_bSpyStart:= true;
  end;
  end
  else
  StopSpy;
end;

很明显，这调用了一个getmsgproc和发送了一条WM_STARTSPY，但我下断点后总是不能进去调试，无论Ｆ７还是Ｆ８一样是走到下一行代码，请问我如何调试，先谢谢了！

http://blog.csdn.net/bdmh/article/details/6104475