Работа с клавиатурой

Вывод сообщения при нажатии клавиши Esc – if getasynckeystate($1b)<>0 then ShowMessage(‘Сообщение’); // Для таймера
Изменить раскладку клавиатуры на английскую – LoadKeyboardLayout(‘00000409’, KLF_ACTIVATE);
Изменить раскладку клавиатуры на русскую – LoadKeyboardLayout(‘00000419’, KLF_ACTIVATE);
Узнать раскладку клавиатуры – GetKeyboardLayoutName(value);  if value= ‘00000409’ then ShowMessage(‘Используется английский’);  if value= ‘00000419’ then ShowMessage(‘Используется  Русский’); // value: array [0.. KL_NAMELENGTH] of char;