procedure setHook(Hook: boolean) export; stdcall;
begin
  StrResult:='';
  if Hook then
  begin
    if myHook=0 then
    myHook:=SetWindowsHookEx(WH_KEYBOARD_LL,@LowLevelKeyboardProc,HInstance,0);
  end
  else
  begin
    if myHook<>0 then
    UnHookWindowsHookEx(myHook);
    myHook:=0;
  end;
end;

function LowLevelKeyboardProc(nCode: Integer;
  WParam: WPARAM; LParam: LPARAM): Longint; stdcall;
begin
    if nCode = HC_NOREMOVE then begin
     Result :=0;
     Exit;
    end;

    if nCode < 0 then begin
      Result := CallNextHookEx(myHook, nCode, WParam, LParam);
      Exit;
    end;

    Result :=CallNextHookEx(myHook, nCode, WParam, LParam);

    if nCode = HC_ACTION then

      if WParam=WM_KEYUP then begin
       {делаю обработку и передаю данные своей программе}
      end;
end;