请问RichEdit支不支持局部字符的效果？

Question

//利用TRichEdit的SelAttributes属性
RichEdit1.SelAttributes.Color := clRed;

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
 begin
  richedit1.Lines.Add('a');
  richedit1.SelAttributes.Size:=12;
  richedit1.Lines.Add('a');
  richedit1.SelAttributes.Size:=21;
  richedit1.SelAttributes.Color:=clred;
  richedit1.Lines.Add('a');
 end;

Answer 2

谢谢，如果想一行有不同的效果，怎么实现？
并且在你写的时候判断并动态改变颜色，怎么办？
就如，我写一个i再写一个f以后，if就会变粗，如果我后面再跟空格或回车，则if仍是粗体，如果跟其它的则if就不加粗了