RichEdit控件中的颜色问题::::我想让RichEdit1控件中的某个字变成其它颜色，不知能不能实现？(0分)

我想让RichEdit1控件中的某个字变成其它颜色，不知能不能实现

gz

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
richedit1.SelAttributes.color:=clblue;
end;
是这个吗？

procedure TForm1.Button1Click(Sender: TObject);
begin
with RichEdit1 do
begin
SelStart :=FindText('某个字',0,GetTextLen,[stWholeWord]);
SelLength :=8;
SelAttributes.color:=clBlue;
SelLength:=0;
end;
end;

richedit1.SelAttributes.color:=clblue;
将RichEdit1中选择的字设成蓝色。

怎么全部是篮色的呢，例如我想让整篇文章的中的'[red]你好[/red]'变成其它颜色,不知如何处理；

还请高手赐教

procedure TForm1.Button1Click(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with RichEdit1 do
begin
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText('我', StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length('你好');
SelAttributes.color:=clred;
end;
end;
end;

按照gzmeng的方法没错！