Perfectamente válido lo que dice Troi, acabo de probarlo con Lazarus en Windows y funciona muy bien
Código Delphi
[-]
procedure TForm2.KeyState();
begin
if GetKeyState(VK_NUMLOCK) and 1 = 1 then
StatusBar1.Panels[2].Text:='Num'
else
StatusBar1.Panels[2].Text:=''
end;
Lo único que hay que tener en cuenta es agregar en los
uses las units
LCLType y
LCLIntf; aqui se definen las constantes de teclas virtuales para compatibilidad con Delphi y las llamadas a funciones de la API de windows.
Saludos