Как програмно переключить состояние клавиш Num Lock, Caps Lock, Scroll Lock?

Code:

var

abKeyState: array [0..255] of byte;

begin

GetKeyboardState( Addr( abKeyState[ 0 ] ) );

abKeyState[ VK_NUMLOCK ] := abKeyState[ VK_NUMLOCK ] or $01;

SetKeyboardState( Addr( abKeyState[ 0 ] ) );

end;

Code:

procedure TMyForm.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;