richedit输入英文或汉语combobox字体自动切换

richedit输入英文或中文combobox字体自动切换
我在ComboBox中添加了系统的字体，我再RICHEDIT1里的FONT，CHARSET设成GB2312_CHARSET，NAME设成Calibri.
现在再RICHEDIT1里无论输入中文还是英文，COMBOBOX1都是显示Calibri。

void __fastcall TForm1::RichEdit1SelectionChange(TObject *Sender)
{
  ComboBox1->ItemIndex=ComboBox1->Items->IndexOf(RichEdit1->SelAttributes->Name);
}

我想在RichEdit1输入中文时，combobox1变换宋体；输入英文数字，combobox1自动变换Calibri字体。。

[解决办法]
这个是不会改变的，设置的是什么就是什么
[解决办法]
RichEdit1->SelAttributes->Name)没有变化
[解决办法]

C/C++ code

void __fastcall TForm1::redt1Change(TObject *Sender){  char szBuf[50];  HKL kl ;  kl = GetKeyboardLayout(0);  memset(szBuf, 0x00, 50);  ImmGetDescription(kl, szBuf, 50);  if(String(szBuf).Length()==0)   strcpy(szBuf,"系统默认");  Caption = String(szBuf) ;}