NUMLOCK einschalten

[Lantis]

Hi Leute,
Wie kann ich eigendlich den Zustand der NUMLOCK-Taste umschalten?
Also sicherstellen daß NUMLOCK immer An ist.

Delphi-Quellcode:

...
var
  KBstate: TKeyboardState;
begin
  GetKeyboardState(KBstate);
  if KBstate[VK_NUMLOCK]=0 then ShowMessage('bitte NUMLOCK einschalten');
 ...
end;

Statt der ShowMessage-Meldung sollte dann sowas rein wie NUMLOCK:=1
Hat jemand 'ne Idee für mich?