[Alloc]

Привет всем!

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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 миллисекунд...

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

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