RichEdit

[Bummi]

diese funktioniert bei mir und zwar nur per Stream:

Delphi-Quellcode:

var
  s:String;
  st:TStringStream;
begin
  st:=TStringStream.Create;
  s :='{\rtf1\ansi\deff0{\colortbl;\red0\green0\blue0;\red255\green0\blue0;}This line is the default color\line\cf2 This line is red\line \cf1 This line is the default color}';
  st.WriteString(s);
  st.Position := 0;
  Richedit1.Lines.LoadFromStream(st);
  st.Free;
  end;

mit Deinem Text allerdings nicht, irgendetwas
scheint nicht ganz zu passen...

EDIT:
ich muß beim kopieren einen Fehler gemacht haben, geht mit Deinem Text.