RTF to plain text (without formats)

[GuenterS]

Hm, das habe ich schon versucht, bin aber schon daran gescheitert den Text überhaupt in die TRichEdit Komponente zu bekommen.

Ich verwende übrigens Delphi5 Enterprise ... die Turbo Delphi Professional Version habe ich nur privat.

Ich habs so probiert:

Delphi-Quellcode:

var
  lText, lText2: string;
begin
   ...
   lText := GetText(); //Hier ist der RTF Formatierte Text drinnen
   ...

   with TRichEdit.Create(nil) do
   try
      Parent := Self;
      Lines.Text := lText; //<--- Das will er so nicht
      PlainText := true;
      lText2 := Lines.Text;
   finally
      Free;
   end;
end;