Какой язык на данный момент на клавиатуре?

Вариант 1:

Author: Mikel

Source: Vingrad.ru https://forum.vingrad.ru

Используй GetKeyboardLayoutName

Вариант 2:

Author: Radmin

Source: Vingrad.ru https://forum.vingrad.ru

var
  Form1: TForm1;
  LAYOUT: String;

implementation
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  RA: Array[0..$FFF] of Char;
begin
GetKeyboardLayoutName(RA) ;
Layout := StrPas(RA);
if Layout = '00000419' then 
  showmessage(' CCCP ' ) 
else
  if Layout = '00000409' then 
    showmessage(' USA ' )
  else 
    showmessage(' X 3 ' ) ;
end; 

Вариант 3:

Source: https://forum.sources.ru

function WhichLanguage:string; 
var 
  ID:LangID; 
  Language: array [0..100] of char; 
begin 
  ID:=GetSystemDefaultLangID; 
  VerLanguageName(ID,Language,100); 
  Result:=String(Language); 
end; 

Пример вызова этой функции:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Edit1.Text:=WhichLanguage; 
end;

Также, для определения активного языка можно воспользоваться функцией GetUserDefaultLangID.