uses

Windows, SysUtils;

 

function cur_layout_name: String;

var

  buffer :array [0..KL_NAMELENGTH-1] of Char;

  LC: LCID;

  Str: String;

begin

  GetKeyboardLayoutName(buffer);

  LC := StrToInt('$'+ string(buffer));

  Str := StringOfChar(' ', MAX_PATH);

  GetLocaleInfo(Lo(lc), LOCALE_SLANGUAGE, PChar(Str), MAX_PATH);

  Result := Str;

end;