Windows - saber a lingua

function Language: string;

var

  IdiomaID:LangID;

  Idioma: array [0..100] of char;

begin

  IdiomaID := GetSystemDefaultLangID; // Get System ID

  VerLanguageName(IdiomaID,Idioma,100); // Get Language Name

  Result   := string(Idioma);

end;