System Delphi

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