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)没有变化
[解决办法]

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) ;

}