Delphi-Quellcode:
FormMain.REAErgebnis.Lines[FormMain.REAErgebnis.Lines.Count -1] := FormMain.REAErgebnis.Lines[FormMain.REAErgebnis.Lines.Count -1]
+ Text;
das sollte ja auch gemacht werden, wenn keine neue Zeile gewollt ist, d.h. er springt an die letzte position aus der zeile davor und fügt es ein. Ich denke das willst du ja auch nicht. MIt dem lines.add war somit der Zeilenumbruch gegeben, also die Zeile nur aufrufen wenn NewLn=false und bei dir ist es ja standardmässig auf true also fügt der es einfach ans Ende. Also das kannst du weglassen, aber dann lieber FormMain.ReaErgebnis.Lines.add(Text)
Vllt solltest du auch wenn du es nicht mehr färben willst auch den Text irgendwo in schwarz wieder geben.
Delphi-Quellcode:
if StrToFloat(Ergebnis[A]) > 2 then
AddColoredText(Test,clblue)
else
AddColoredText(Test,clBlack);
inc(A);
Das RichEdit behält wohl die Farbe dann bei