Mostrar Status CapLock, NumLock y ScrollLock en Status Bar

[vtdeleon]

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);