Зависает IDE (Delphi XE4) при отладке глобального хука

[Hottabych]

Добрый день!
Проблема, собственно, в сабже:
экспортные ф-и отлаживаются нормально, но при бряке на функции Tfnhookproc происходит завис (прямо с begin), и после этого блокируется ввод с клавы.
Какие первые мысли? У кого такое бывало? Хочется узнать мнение опытных людей...
Код, в принципе не важен, но если что:

//ставим ловушку
procedure StartHook(AppHandle, CtrlHandle: HWND); stdcall;
begin
  hLastForm := 0;
  // ставим ловушку
  CurrentHook := SetWindowsHookEx(WH_KEYBOARD, @GlobalKeyHook, hInstance, 0);
  hMemFile := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0,
    SizeOf(THRec), 'globhk777');
  phf := MapViewOfFile(hMemFile, FILE_MAP_WRITE, 0, 0, 0);
  phf.CtrlH := CtrlHandle;
  phf.AppH := AppHandle;
end;

function GlobalKeyHook(code: integer; wParam: WPARAM; lParam: LPARAM)
  : LRESULT; stdcall;
var
  KeyStat: TKeyBoardState;
  hActForm: HWND;
  count: integer;
  buf: PChar;
  twochar: array [0 .. 1] of char;
begin
  if code < 0 then
  begin
    Result := CallNextHookEx(CurrentHook, code, wParam, lParam);
    Exit;
  end;
  if code = HC_ACTION then
  begin
    hActForm := GetActiveWindow(); // получаем хэндл активного окна
    hMemFile := OpenFileMapping(FILE_MAP_WRITE, False, 'globhk777');
    phf := MapViewOfFile(hMemFile, FILE_MAP_WRITE, 0, 0, 0);
    hRecCtrl := phf.CtrlH;
    hMForm := phf.AppH;
    if ((lParam and (1 shl 30)) <> 0) then
    begin
      // проверяем и получаем заголовок окна
      if hActForm <> hLastForm then
      begin
        GetMem(buf, 64);
        if GetWindowText(hActForm, buf, 64) <> 0 then
        begin
          cd.cbData := length(buf) + 1;
          cd.lpData := buf;
          SendMessage(hMForm, WM_COPYDATA, 0, integer(@cd));
        end;
        hLastForm := hActForm;
        FreeMem(buf);
      end;
      // отправляем в наш контрол
      GetKeyboardState(KeyStat);
      count := ToAscii(wParam, lParam, KeyStat, twochar, 0);
      if count = 1 then
        PostMessage(hRecCtrl, WM_CHAR, Ord(twochar[0]), 0);
    end;
  end;
  Result := CallNextHookEx(CurrentHook, code, wParam, lParam);
end;

Благодарен за любой совет!
P.S. проект не для шпиёнства (пройденный этап). Ловушки нужны для перехвата ввода со сканера штрих-кода, евоной обработки, и выполнения разных команд, с целью упразднения клавиатуры и мышки на произв. участке.

[Пепел Феникса]

у меня такое чувство что вы и сама среду тоже хукаете, потом она брякает, и происходит дэдлок.

[Smogg]

Не уверен про Делфи, но Визуал Студио 2010 виснет при попытке бряка в коде хука из 64-битной дллельки.

[Hottabych]

Не знаю почему, но при использовании в качестве хост процесса \Debug\Project1.exe (не Release) всё работает хорошо. dll брякается только если ввод поступает в хостовое приложение, в принципе, как и должно.
Спасибо за участие!