一个鼠标hook的问题

鼠标hook问题，得到鼠标在屏幕的位置，但是我的鼠标离开form后，delphi就会自动关闭掉。(在调试程序状态),如果是执行exe文件的话，鼠标移开form后，桌面也会有问题。
部分代码如下。
哪位高手看看是怎么一回事。
var
  Form1: TForm1;
  MHook:HHook=0;....function MProc(iCode: Integer; wparam, lparam: LongInt): lresult; stdcall;
var
  PMou:^MouseHookStruct ;
begin  PMou := Pointer(DWord(lParam));
  form1.Label2.caption:='X='+inttostr(PMou.pt.X)+' Y='+inttostr(PMou.pt.Y);  form1.Edit4.Text :=inttostr(strtointdef(form1.Edit4.Text,0)+1);  //计数器
  Result := CallNextHookEx(LogHook, iCode, wParam, lParam);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  if MHook = 0 then
    begin
      MHook :=SetWindowsHookEx(WH_MOUSE,MProc,HInstance,0);
    end;
end;