scrool/num/caps lock....

Jeg faldt over følgende kode forleden og tænkte at lave et program der ligger i systray'et og viser status på Caps, Scroll og Num lock... Det virker skam også.... tildels... Det virker nemlig kun når programmet er aktivt og ikke når det er i baggrunden :(

Koden er:
var
  KeyState: TKeyboardState;
begin
  GetKeyboardState(KeyState);
  if (KeyState[vk_capital] = 0) then
cooltrayiconCap.IconIndex := 0 else
cooltrayiconCap.IconIndex := 1;

  if (KeyState[vk_SCROLL] = 0) then
cooltrayiconScr.IconIndex := 0 else
cooltrayiconScr.IconIndex := 1;

  if (KeyState[vk_NUMLOCK] = 0) then
cooltrayiconNum.IconIndex := 0 else
cooltrayiconNum.IconIndex := 1;

end;

Er der en der har en idé om hvordan programmet kan opsnappe status selvom programmet ikke er "i front"??
//bramsing;