function GetUILanguage: Integer;
Возвращает идентификатор языка (LANGID) пользовательского интерфейса для текущего пользователя. Идентификатор языка может быть либо языком самой ОС Windows, либо языком пакета локализации (MUI), выбранного в региональных настройках на панели управления Windows. В случае ошибки функция вернёт значение 0 (маловероятно).
Смотрите Список
национальных идентификаторов и языковых групп в MSDN.
begin if GetUILanguage = $0409 then begin // Язык интерфейса - Английский (США) end; // Можно использовать "and $3FF" для получения основных идентификаторов языка if GetUILanguage and $3FF = $09 then begin // Соответствует любому варианту английского end; end;