Узнать текущую раскладку можно при помощи, этого нехитрого кода.

  1) Кидаем на форму один Button и один Label

  2) Создаем обработчик событий OnClick на кнопке и в коде пописываем:

var

Layout:array [0..KL_NAMELENGTH]of char;

begin

GetKeyboardLayoutName(Layout);

if Layout='00000409' then

Label1.Caption:='En';

if Layout='00000419' then

Label1.Caption:='Rus';

end;

Теперь если вы будете переключить раскладку и нажимать следом на кнопку в нашей программе, то в компоненте Label будет отображаться текущее состояние языка.