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