如何在RichEdit控件中用程序任意设置文字的格式和颜色？(50分)

我想在一行的文字中使用不同的颜色，可不知怎样设置。
比如将文字串：'姓名：张三' 这个串加入到RichEdit控件中，姓名用红色，张三用兰色，
我想使用 with richedit do
begin
Text:='';
selattributes.color:=clRed;
text:='姓名：';
selattributes.color:=clBlue;
text:=text+'张三';
end;
可是不行，都是兰色的。
要是用 Lines.add 语句，又不能在一行中实现变色，我该怎样做呢？

人呢？哎！真是难题呀。

var
iPos: integer;
begin
with richedit do
begin
Text:='';
text:='姓名：';
selstart := 0;
iPos := Length(text);
selLength := iPos;
selattributes.color:=clRed;
text:=text+'张三';
selStart := iPos;
selLength := Length(text)-iPos;
selattributes.color:=clBlue;
end;

谢谢