var
LangID: Integer;
begin
LangID:=GetSystemDefaultLangID;
//ShowMessage(Languages.NameFromLocaleID[LangID]);
if LangID = ((SUBLANG_CHINESE_SIMPLIFIED shl 10) or LANG_CHINESE) then
ShowMessage('简体中文')
else if LangID = ((SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH) then
ShowMessage('美国英语')
end;