请问前辈们TRichEdit的入门使用：

请问前辈们TRichEdit的入门使用：
①.我想给TRichEdit输入的字符串中的指定字符串(比如"123")都显示出蓝色色彩，我自己于是我自己写了代码A，但是发现成功设置了字体的颜色后在被设置颜色的字符串的后面输入新的字符串的话也会导致新的字符串色彩受影响。请问怎么解决？②.还有一个问题是如何在TRichEdit的光标处TRichEdit.SelStart插入字符串？我是通过自己写的函数InsertStr(),来在光标处插入字符串的，但发现用户不断点击插入字符串按钮的时候会出现严重的闪烁用了beginupdate;也是，请问除了我这样设置TRichEdit.Text 的方法有其他的方法在光标处插入字符串吗？
//在光标处插入字符串
procedure InsertStr(const cEdit: TRichEdit; const cStr: string);
var
  vTI: Integer;
  vTS: string;
  vSelLen, vStrLen: Integer;
begin
  vTS := cEdit.Text;
  vTI := cEdit.SelStart;
  vStrLen := lstrlen(PChar(PChar(cStr)));
  vSelLen:= cEdit.SelLength;
  cEdit.Text := Copy(vTS, 1, vTI) + cStr + Copy(vTS, vTI + vSelLen + 1, Length(vTS) -  vTI - vSelLen);
  cEdit.SelStart:= vTI + vStrLen;
end;