Odd(GetKeyState(vk_NUMLOCK))

Tja du kan nok med fordel lave en simple keyhook (find det på nettet) og så kun tjekke 2 events. (eller kun VK_NUMLOCK)

  case Msg.Message of
    WM_KEYDOWN, WM_KEYUP:
    begin
      if Odd(GetKeyState( VK_NUMLOCK )) then
        caption := 'on' else caption := 'off';
    end;
  end;

så tror jeg ikke det er ret resourcekrævende

private
    { Private declarations }
  KeyState: TKeyboardState;
.
.
.
.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  GetKeyboardState(KeyState);
  if  (KeyState[vk_NUMLOCK] = 0) or (KeyState[vk_NUMLOCK] = 128) then
    StatusBar1.Panels[1].text := '' else
    StatusBar1.Panels[1].text := 'aktiv';

end;

husk at sætte KeyPreviw til true

Vallemanden... Dit eksempel virker kun hvis man har formen aktiv når der trykkes... Det jeg skal bruge det til er til et program der viser status i systemtrayet ;o)

dkn... Jeg kigger på dit indlæg i morgen... Jeg er ved at gå kold i koder nu ;o)

Lavet lige en simpel demo:
www.asdev.dk/files/other/stuff/Journal%20Keyhook.zip

Men vil stadig sige du nok skal vælge at lave en rigtig keyhook og så kun se efter VK_NUMLOCK.

Tak dkn... dit eksempel virker fint... Jeg kigger fortsat på Keyhook og hvordan det fungere :o)