[roman]

Intenta poner este código en el evento OnTimer de un timer:

  if GetKeyState(VK_NUMLOCK) and $00ff <> 0
    then StatusBar1.Panels[0].Text := 'NUM ON'
    else StatusBar1.Panels[0].Text := 'NUM OFF';

  if GetKeyState(VK_CAPITAL) and $00ff <> 0
    then StatusBar1.Panels[1].Text := 'CAPS ON'
    else StatusBar1.Panels[1].Text := 'CAPS OFF';

// Saludos