Activer-désactiver les diodes du clavier

procedure TForm1.Button1Click(Sender: TObject);
var
keys: TKeyboardState;

begin
{1 = on, 0 = off}
GetKeyboardState( keys );
keys[VK_NUMLOCK] := 1; {Num Lock}
keys[VK_CAPITAL] := 1; {Caps Lock}
keys[VK_SCROLL] := 1; {Scroll Lock}
SetKeyboardState( keys );
end;