[NumLock]

Код:

  PostMessage(FindWindow(nil, 'Безымянный - Блокнот'), WM_INPUTLANGCHANGEREQUEST,
    0, LoadKeyboardLayout('00000419', KLF_ACTIVATE));