[NumLock]

вовсе нет)

Код:

library Hook;

uses
  Windows, Messages;

type
  KBDLLHOOKSTRUCT = record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: DWORD;
  end;
  PBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;

const
  WH_KEYBOARD_LL: Integer = 13;

var
  hCallWndProc: HHOOK = 0;

function LowLevelKeyboardProc(code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  dwFlags: DWORD;
begin
  if code<0 then Result:=CallNextHookEx(0, code, wParam, lParam)
  else
  begin
    if (((wParam=WM_KEYDOWN) or (wParam=WM_KEYUP))) and (PBDLLHOOKSTRUCT(lParam).flags=0) then 
    begin
      if (wParam=WM_KEYUP) then dwFlags:=KEYEVENTF_KEYUP else dwFlags:=0;
      case PBDLLHOOKSTRUCT(lParam).vkCode of
        VK_HOME: begin
          keybd_event(VK_NUMPAD7, 0, dwFlags, 0);
          Result:=1;
        end;
        VK_END: begin
          keybd_event(VK_NUMPAD1, 0, dwFlags, 0);
          Result:=1;
        end;
        VK_PRIOR: begin
          keybd_event(VK_NUMPAD9, 0, dwFlags, 0);
          Result:=1;
        end;
        VK_NEXT: begin
          keybd_event(VK_NUMPAD3, 0, dwFlags, 0);
          Result:=1;
        end;
        VK_UP: begin
          keybd_event(VK_NUMPAD8, 0, dwFlags, 0);
          Result:=1;
        end;
        VK_DOWN: begin
          keybd_event(VK_NUMPAD2, 0, dwFlags, 0);
          Result:=1;
        end;
        VK_LEFT: begin
          keybd_event(VK_NUMPAD4, 0, dwFlags, 0);
          Result:=1;
        end;
        VK_RIGHT: begin
          keybd_event(VK_NUMPAD6, 0, dwFlags, 0);
          Result:=1;
        end;
        VK_CLEAR: begin
          keybd_event(VK_NUMPAD5, 0, dwFlags, 0);
          Result:=1;
        end;
        VK_INSERT: begin
          keybd_event(VK_NUMPAD0, 0, dwFlags, 0);
          Result:=1;
        end;
        else Result:=CallNextHookEx(0, code, wParam, lParam);
      end;
    end else Result:=CallNextHookEx(0, code, wParam, lParam)
  end;
end;

procedure SetHook();
begin
  hCallWndProc:=SetWindowsHookEx(WH_KEYBOARD_LL, @LowLevelKeyboardProc, HInstance, 0);
end;

procedure UnSetHook();
begin
  if hCallWndProc<>0 then UnhookWindowsHookEx(hCallWndProc);
end;

exports
  SetHook, UnSetHook;

begin
end.

http://data.cod.ru/118861