Цветной текст в RichEdit - проблемы.

[Fezilk]

Доброго времени суток!

Столкулся с проблемой. Нужно программно изменить цвет новой строки в RichEdit. Делается это так:

if ChatPages[Form3.PageControl1.ActivePage.Tag]._rich.Name = 'Rich' + suin then
ChatPages[Form3.PageControl1.ActivePage.Tag]._rich.SelAttributes.Color := clRed;
ChatPages[Form3.PageControl1.ActivePage.Tag]._rich.Lines.Add(GetNickFor(StrToInt(UIN)) + ' (' + TimeToStr(Time) + ' ' + DateToStr(Date) + ') ' );
ChatPages[Form3.PageControl1.ActivePage.Tag]._rich.SelAttributes.Color := clWindowText;
ChatPages[Form3.PageControl1.ActivePage.Tag]._rich.Lines.Add(msg);

Но при запуске программы и получении сообщения выглядит это так: первое сообщение полностью черное, а последующие выглядят как надо.

.: Fezilk :. (13:40:43 13.08.2009)
привет
.: Fezilk :. (13:40:44 13.08.2009)
как дела?

вместо:

.: Fezilk :. (13:40:43 13.08.2009)
привет
.: Fezilk :. (13:40:44 13.08.2009)
как дела?

как можно исправить ?

[Stilet]

У меня твой код работает как положено.
Попробуй еще так:

 With ChatPages[Form3.PageControl1.ActivePage.Tag]._rich do begin
  SelAttributes.Color:=clRed;
  SelText:=GetNickFor(StrToInt(UIN)) + ' (' + TimeToStr(Time) + ' ' + DateToStr(Date) + ') '#13#10;
  SelAttributes.Color:=clBlack;
  SelText:=msg+#13#10;
 end;

[Fezilk]

спасибо, так работает =)