Как узнать раскладку клавиатуры в delphi?

1
2
3
4
5
6
7
8

Const EN = 67699721
      RU = 68748313
...

if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = EN then
  ShowMessage('раскладка английская');
else
  ShowMessage('раскладка НЕ английская');