Wie RTF aus Text entfernen / konvertieren?

[Luckie]

Delphi-Quellcode:

procedure RTF2PlainText(RE: TRichEdit; const InFile, OutFile: String);
begin
  RE.PlainText := False;
  RE.Lines.LoadFromFile(InFile);
  RE.PlainText := True;
  RE.Lines.SaveToFile(OutFile);
end;

So mal aus dem Kopf ohne IDE.