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

Вывод сообщения при нажатии клавиши 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;