C++ Builder XE 关于RichEdit如何设置文本中某个字符颜色

如何在RichEdit组件中设置某几个字符的颜色?

void __fastcall TForm2::btn7Click(TObject *Sender)
{

  String CGt=Edit4->Text; 

  RichEdit1->SelStart=RichEdit1->Text.Pos(CGt)-1;   //找到某几个字符的位置
  RichEdit1->SelLength=CGt.Length();                       //选中某几个字符的长度
  RichEdit1->SelAttributes->Color=clRed;                  //设置字符颜色为红色，效果如下图

}