Как определить раскладку клавиатуры - Русская или Английская?

  Узнать текущую раскладку можно при помощи, этого нехитрого кода.
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 будет отображаться текущее состояние языка.