Brug af Scroll Lock knap og diode

jeg har løst det selv.

Hov.. Du må da godt lige skrive hvordan du gjorde det, så andre og kan se hvordan det blev løst!?!

procedure TMainForm.tim10sekAction(Sender: TObject);
begin
      GetKeyboardState(KeyState);
      if (KeyState[VK_SCROLL] = 0) then
        KeyState[VK_SCROLL] := 1
      else
        KeyState[VK_SCROLL] := 0;
      SetKeyboardState(KeyState);
end;

Man kan bytte SCROLL ud med NUMLOCK eller CAPITAL.

CAPITAL = Caps Lock.

Okay, Tak :)