Saludos a todos. Quería actualizar mi truco porqué no me di cuenta y puse el código que no era. Pero me esta dando problemas el procedimiento RtfToTxt:
Código Delphi
[-]Procedure RtfToTxt(Const Rtf: TStrings; Var Txt: TStrings; Padre: TWinControl);
Var
RtfInvisible: TRichEdit;
Begin
RtfInvisible:=TRichEdit.create(Padre);
RtfInvisible.Visible:=False;
RtfInvisible.PlainText:=False;
RtfInvisible.Parent:=Padre;
RtfInvisible.Lines:=Rtf;
RtfInvisible.PlainText:=True;
Txt:=RtfInvisible.lines;
RtfInvisible.Destroy;
end;
Eso no me funciona correctamente. Gracias a los que intenten ayudar
.