[NumLock]

Код:

LoadKeyboardLayout(PChar('00000419'), KLF_ACTIVATE); { русский }
LoadKeyboardLayout(PChar('00000409'), KLF_ACTIVATE);