Для этого можно воспользоваться следующей функцией.

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.