[Alloc]

Привет всем!

Я использую следующую функцию для записи строк разного цвета:

Код:

procedure AddText(Sender:TsRichEdit;Text: String; Color: TColor = clBlack; Style: TFontStyles = []);
var
  today : TDateTime;
begin
  today := Time;
  Sender.SelAttributes.Color:=Color;
  Sender.SelAttributes.Style:=Style;
  Sender.Lines.Append('['+TimeToStr(today)+']  '+Text);
  SendMessage(Sender.Handle, EM_SCROLL, SB_LINEDOWN, 0);
end;

...
AddText(edt1,'Text',clGreen,[]);
...

Я вызываю данную функцию после выполнения определенной задачи.. что то вроде лога работы программы. Каждые 500 миллисекунд...

то ли она не успевает то ли я где то ошибся.. в общем бывает так, что строки не принимают цвет который я задал...

Как исправить? Заранее спасибо.