procedure TForm1.Button1Click(Sender: TObject);
VAR  KS : TKeyboardState;

begin
  GetKeyboardState(KS);
  KS[144] := 1;
  SetKeyboardState(KS);
end;

для NT другой нужен

keybd_event (VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY, 0); 
  keybd_event (VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);