在多次改变 RichEdit.Text部份文本的颜色后，出现所有字体都变色的的解决办法

Procedure  TForm1.FormCreate(Sender: TObject);
Begin
  RichEdit1.Text :=  '012345678' ;
End ;

Procedure  TForm1.Button1Click(Sender: TObject);
Begin
  RichEdit1.SelStart :=  0 ;
  RichEdit1.SelLength :=  3 ;
  RichEdit1.SelAttributes.Color := clRed;  //012为红色

  RichEdit1.SelStart :=  5 ;
  RichEdit1.SelLength :=  4 ;
  RichEdit1.SelAttributes.Color := clBlue;  //5678为蓝色

//RichEdit1.ClearSelection;
//只是删除最后一个选区(如上面为蓝色的选区)的字符，不是清除 所有选择样式
End ;

Procedure  TForm1.Button2Click(Sender: TObject);
Begin
  RichEdit1.SelStart :=  0 ;  //清除 所有选择样式
  RichEdit1.SelLength := Length(RichEdit1.Text);
  RichEdit1.SelAttributes.Color := clBlack;
End ;