[DELPHI] - Show True RTF Formatting

Code:

---

function ShowRTF(RE: TRichedit): string;
var
  strStream: TStringStream;
begin
  strStream := TStringStream.Create('') ;
  try
    RE.PlainText := False;
    RE.Lines.SaveToStream(strStream) ;
    Result := strStream.DataString;
  finally
    strStream.Free
  end;
end;

Memo1.Text:= ShowRTF(RichEdit1);

---