RichEdit: neue farbige Zeile vorne einfügen?

[Helmi]

Hallo,

ich möchte eine farbige Zeile in eine RichEdit hinzufügen.
Das wär ja auch kein Problem (link).

Nur will ich die neue Zeile nicht hinten (was "add" macht) sondern am Anfang setzen.

Einen Text vorne hinzufügen und diesen farblich darzustellen ist auch kein Problem. Nur wenn ich dann einen neuen Text hinzufüge, werden alle anderen Zeilen wieder schwarz.

Wie kann ich verhindern, dass die Zeilen wieder schwarz werden, sondern dass diese Zeilen ihre (mal gegebene) Farbe behalten?

ach ja - hier noch ein Code den ich bisher habe:

Delphi-Quellcode:

procedure TForm1.Meldung_anzeigen(Meldungstext: String; Farbe: TColor);
var
  S: String;

begin
  with RichEdit1 do
    begin
      S := Text;

      clear;
      Text := Meldungstext + #10 + S;
      SelStart            := 0;
      SelLength           := length(Meldungstext);
      SelAttributes.Color := Farbe;
    end;
end;