TRichEdit怎樣新增的内容到最後一行？

Delphi裡使用TRichEdit，使用SetSelTextBuf時可以設定顯示的字型格式，但是顯示位置是在目前的插入光标後，如果人為改變插入光标的位置，比如在其他位置單，以後再插入的内容位置就沒辦法控制了。

能不能限制每次新增加的内容都加到末尾？或者用其他的方式實作增加内容也可以，但是要能夠控制這個字元串顯示的格式，用Lines.Append('');這樣是沒用的

或者每次程式設計把插入光标移動最後也行，不過不知道怎麼做，哪位說一下？

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

RichEdit1.SelStart := MaxInt;

RichEdit1.SelAttributes.Color := Random($FFFFFF);

RichEdit1.Lines.Add(ColorToString(RichEdit1.SelAttributes.Color));

end;

RichEdit1.Lines.Insert(RichEdit1.Lines.Count,'12109021');

如果要接在最後一行字元後面，則可以這樣寫：

var

S:string;

S:=RichEdit1.Lines[RichEdit1.Lines.count-1];

RichEdit1.Lines.Delete(RichEdit1.Lines.count-1);

self.RichEdit1.Lines.Insert(RichEdit1.Lines.Count,S+'12109021');