RtfToTxt (Truco 484)

[rauros]

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 .