Este truco es bastante útil para hacer editores de texto que lo colorean, para grabar los progresos en txt y no en rtf. Gracias a Miguel por la ayuda.
Código Delphi
[-]function RtfToTxt(Rtf: TStrings): TStrings;
Var
RtfInvisible: TRichEdit;
Begin
TrichEdit.Create(RtfInvisible);
Try
RtfInvisible.PlainText:=False;
RtfInvisible.Lines:=Rtf;
RtfInvisible.PlainText:=True;
result:=RtfInvisible.lines;
Finally
if Assigned(RtfInvisible) then RtfInvisible.Free;
end;
end;