Entiendo.
Tienen razón, no hay manera de concatenar si son RTF. Hay que extraerlos y hacerlo con Stream's.
Ya estoy en eso.
Pongo a consideración unos pequeños procedimientos que hacen eso. Espero sirva. Los hice en DelphiXE5.
Código Delphi
[-]
function RichEditToPlainText(RichEdit:TRichEdit):string; overload;
var
Stream:TStream;
ed: TRichEdit;
begin
ed:=TRichEdit.CreateParented(HWND_MESSAGE);
Stream:=TStream.Create;
ed.PlainText:=True;
RichEdit.Lines.SaveToStream(Stream);
ed.Lines.LoadFromStream(Stream);
Result:=Trim(ed.Lines.Text);
ed.Free;
Stream.Free;
end;
function RichEditToPlainText(Stream:TStream):string; overload;
var
ed: TRichEdit;
begin
ed:=TRichEdit.CreateParented(HWND_MESSAGE);
ed.PlainText:=True;
ed.Lines.LoadFromStream(Stream);
Result:=Trim(ed.Lines.Text);
ed.Free;
end;
Muchas gracias.