2 Richedit-Texte miteinander verbinden

[Sourcemaker]

Das Problem ist das Property Text oder auch Lines enthält nur der reinen Text ohne Formatierung.
Ich habe aber 2 formatierte Texte aus einer Datenbank die ich in einem Control zusammenfügen will.

So wird der Text mit Formatierung zugewiesen:

Delphi-Quellcode:

(* -------------------------------------------------------------------------- *)
(* Setzen des Inhaltes einer TRichEdit-Komponente                             *)
(* -------------------------------------------------------------------------- *)
procedure SetRxRichEditText(const Edit:TRxRichEdit;const chRtfText:string);
var
  stream : TMemoryStream;
  nSize  : integer;
begin
  nSize := Length(chRtfText);
  if nSize>0 then
  begin
    stream := TMemoryStream.Create;
    try
      stream.SetSize(nSize);
      StrLCopy(stream.Memory, PChar(chRtfText), nSize);
      edit.Lines.LoadFromStream(stream);
    except
    end;
    stream.Free;
  end else
    edit.Text := '';
end;

Grüße

Frank