TRichEdit

[youuu]

Hallo,

Ich habe eine Frage bezüglich den einfärben in einem TRichEdit Feldes.
Und zwar hier ein Teil meines Quellcodes.

Delphi-Quellcode:

           FormMain.REAErgebnis.lines.Add(Test);
              if StrToFloat(Ergebnis[A]) > 2 then
                Begin
                  with FormMain.REAErgebnis do
                    begin
                      SelStart  := Length(FormMain.REAErgebnis.text)-Length(Test);
                      SelLength := Length(Test);
                      SelAttributes.Color := clRed;
                    end;
                End;

Nun soll jedesmal wenn ich im TRich-Feld etwas einfüge das einen höheren Wert als 2 besitzt Rot eingefärbt werden.

nur bei diesem Code den ich mir zusammen gebastelt habe klappt dies nicht.




Auf dem Screenshot kann man genau sehen wie es jedesmal aussieht.

Screenshot hängt bei.

Hat jemand einen Tipp was ich falsch mache?