能否实现teechart的标题中指定文字，文字颜色变红？(100分)

标题例如：
'公司名:'+参数1+'部门'+参数2

我想把参数1,参数2，的文字颜色变红？

有人懂吗？

恐怕不行吧

在其ONAFTERDRAW事件中自己画吧

procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject);
var
RC : TRect;
TextWidth : Integer;
StartPos : Integer;
const
sDepart='超级部门';
sComp = '宇宙无限公司';
begin
RC := Chart1.Title.TitleRect;
Chart1.Canvas.Brush.Style := bsClear;
Chart1.Canvas.Brush.Color := clWhite ;
Chart1.Canvas.FillRect(RC);
TextWidth := Chart1.Canvas.TextWidth('公司名:'+SComp+'部门'+sDepart);
StartPos := RC.Left + ((RC.Right-RC.Left)-TextWidth) div 2;
Chart1.Canvas.Font.Color := clBlack;
Chart1.Canvas.TextOut(StartPos,RC.Top,'公司名:');
TextWidth := Chart1.Canvas.TextWidth('公司名:');
Chart1.Canvas.Font.Color := clRed;
StartPos := StartPos+TextWidth+1;
Chart1.Canvas.TextOut(StartPos,RC.Top,sComp);
TextWidth := Chart1.Canvas.TextWidth(sComp);
Chart1.Canvas.Font.Color := clBlack;
StartPos := StartPos+TextWidth+1;
Chart1.Canvas.TextOut(StartPos,RC.Top,'部门');
TextWidth := Chart1.Canvas.TextWidth('部门');
Chart1.Canvas.Font.Color := clRed;
StartPos := StartPos+TextWidth+1;
Chart1.Canvas.TextOut(StartPos,RC.Top,sDepart);
end;

接受答案了.