var
   Lang : WORD;
begin 
   Lang := SysLocale.PriLangID or ( SysLocale.SubLangID shl 10 );
   case Lang of
        CHINESE_BIG5  :            CHINESE_GB :
   end;
END;