Чи включена клавіша?

Виконується за допомогою функції GetKeyState. 

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption := Inttostr(GetKeyState(VK_NUMLOCK));
end;

Як результат назві вікна присвоюється 1, якщо клавіша включена, і 0 якщо клавіша вимкнена. Актуально для таких клавіш як NumLock, CapsLock, ScrollLock.