почему не работает процедура нажатия клавиши в делфи

[buka_14]

есть процедура

procedure TForm1.Button1Click(Sender: TObject);
Var
KeyState: TKeyboardState; 
begin
GetKeyboardState(KeyState); 
if (KeyState[VK_NUMLOCK] = 0) then 
KeyState[VK_NUMLOCK] := 1 
else
KeyState[VK_NUMLOCK] := 0; 
SetKeyboardState(KeyState); 
end;

запускаю форму, нажимаю кнопку не реагирует никак.
Что-то делаю не правильно? Как сделать, чтобы работало включение/выключение нумлока?

[VVM]

Вкл и откл одной кнопкой

 procedure TForm1.Button1Click(Sender: TObject);
begin
  keybd_event(VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP), 0);
  keybd_event(VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0)
end;

[buka_14]

как сделать, чтобы эта процедура заработала правильно?
чтобы при нажатии на -> переключались лампочки поочереди

i

f key=VK_Right then
begin
if  (HiWord(GetKeyState(vk_NUMLOCK)) = 0) then
    if (HiWord(GetKeyState(vk_capital)) = 0) then
       if( HiWord(GetKeyState(vk_scroll)) = 0) then
       keybd_event(VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0) 
       else BEGIN
       keybd_event(VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0); 
       keybd_event(VK_SCROLL, $45, (KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP), 0);
       END
    ELSE begin
     keybd_event(VK_capital, $45, (KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP), 0
     keybd_event(VK_scroll, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0); 
    end
else begin
keybd_event(VK_numlock, $45, (KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP), 0
keybd_event(VK_capital, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0); 
end;

[buka_14]

Спасиба вам большое за помощь