Ошибка при работе с Hook'ом мыши

[Sibedir]

Только начал разбираться с hook'ами. Не пойму, почему программа вылетает вместе с Delphi как только курсор уходит за пределы окна.
MouseHook.zip
Подскажите, в чем ошибка или хоть в каком направлении рыть. С hook'ом клавы такого не происходит.

[Sibedir]

Ну вот, и сам нашел
Читал не внимательно.

Понимание следующего параграфа является ключом для понимания механизма работы ловушек Windows, располагающихся в DLL. Если вы не поймёте его, вернитесь и перечитайте заново и так до тех пор, пока всё не станет ясным.
Наш Process1 устанавливает глобальную ловушку из DLL находящейся в адресном пространстве (АП) нашего процесса (Process1). DLL, находящаяся в АП процесса1 имеет свои данные. Когда система посылает событие, на которое мы установили ловушку, в Process2, то в Process2 отображается код DLL, находящийся в первом процессе (Dll code), НО НЕ ДАННЫЕ ! Все данные, только что отображённой в Process2 DLL, инициализируются заново (т.е. равны 0, nil, False в зависимости от типа). То есть, Process2 знать не знает о существовании Process1, и всё что в нём находится никак не относится к АП первого процесса, из которого произошло отображение кода DLL. В библиотеки, находящиеся не в АП вашего процесса, можно посылать только процессо-независимые данные, такие как, к примеру, дескрипторы окон (под термином "посылка" в данном случае подразумевается использование функций PostMessage() и SendMessage()).

[Sibedir]

Казалось бы, вроде разобрался, да чаво там, все по примеру из FAQ сделал. А она не работает. Вот исходники:
MouseHook1.zip
Вот какая штука, заменяю в библиотеке код

function GlobalMouseHook (Code: Integer; wParam: Integer; lParam: Integer): LongWord;
begin
  if (Code >= 0) then begin
    case TMsg (Pointer (lParam)^).message of
      WM_MOUSEMOVE:
        TMsg (Pointer (lParam)^).message := WM_NULL;
      else
        Result := CallNextHookEx (MouseHook, Code, wParam, lparam);
    end;
  end;
end;

на

function GlobalMouseHook (Code: Integer; wParam: Integer; lParam: Integer): LongWord;
begin
  if (Code >= 0) then begin
    MessageBeep (0);
    Result := CallNextHookEx (MouseHook, Code, wParam, lparam);
  end;
end;

Пищит за милую душу. А если как во вложении делаю, вообще хук теряет.

Подсткажите люди добрые, век помнить буду.

[Sibedir]

Еще раз поднимаю вопрос.
Протестируйте прогу пожалуйста. Что не так?
Тема для самостоятельного изучения не самая простая. Материала ни так и много. Я и книги читал и FAQ и форумы. Не понял. Везде примеры с клавой, с буфетом и т.д., а с движением мыши нету.

[Sibedir]

Если хоть комуто интересно, отпишитесь, даже если ни чего не получается. Я буду знать что тема в рассмотрении. Если нет - тему в баню (наверное очень сложный вопрос )