[Yurk@]

Код:

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;

не оно ?