请教如何控制数据存为WORD文件时控制字体，颜色。(100分)

我把一段数据存为WORD文件格式，用WORDDOCUMENT控件，问题是这段要显示不同的
颜色，字体，比如 "abcdedfhijkl" 其中abc为蓝色，其他为红色
我没这方面的资料，望各位大侠指点，给些例子，谢谢。

Doc: TWordDocument;

procedure TMain.ReplaceBtnClick(Sender: TObject);
var
SearchText, Wrap: OleVariant;
TextRange: Range;
begin
TextRange := Doc.Content;
SearchText := 'abc';
TextRange.Find.Execute(SearchText, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, Wrap,
EmptyParam, EmptyParam, EmptyParam);
TextRange.Font.Italic := integer(True);
TextRange.Font.ColorIndex := 6;
end;

。。。解决问题。。虽然解决方法不一样，但是有了启发。。谢了