function GetLanguage: string;
var
Lar: array[0..$FFF] of char;
begin
GetKeyboardLayoutName(Lar);
case StrToInt(StrPas(Lar)) of
409: Result:='Мова: Англійська';
419: Result:='Мова: Російська';
422: Result:='Мова: Українська';
else
LoadKeyboardLayout('00000409',KLF_ACTIVATE);
Result:='Мова: Англійська';
end;
end;