Mostrar Status CapLock, NumLock y ScrollLock en Status Bar
 

Código Delphi [-]
Procedure TMain.KeyState();
begin
  If GetKeyState(VK_NUMLOCK) and 1 = 1 Then
    StatusBar.Panels[2].Style:= psText
  else
    StatusBar.Panels[2].Style:= psOwnerDraw;

  If GetKeyState(VK_CAPITAL) and 1 = 1 Then
    StatusBar.Panels[3].Style:= psText
  else
    StatusBar.Panels[3].Style:= psOwnerDraw;

  If GetKeyState(VK_SCROLL) and 1 = 1 Then
    StatusBar.Panels[4].Style:= psText
  else
    StatusBar.Panels[4].Style:= psOwnerDraw;
end;

Hay que tener en cuenta es agregar en los uses las units LCLType y LCLIntf (en Lazarus);

pero en ke evento lo insertas para ke lea estas instrucciones?

HOLA: PUEDES COLOCARLO EN LA EJECUCIÓN DE UN TIMER.
SALUDOS

Puedes ponerlo en el evento que desees, cualquiera en el que desees que se muestre el estado de estas teclas. Como dice PINO72 en un TIMER.

Observación: Efectivamente hay que agregar las units LCLType y LCLIntf (Solamente en Lazarus)