Delphi RTF Text

Function GetRTFtext(Const RichEdit: TRichEdit): String;
var
  MemoryStream : TMemoryStream;
  RTFText      : AnsiString;
begin
  MemoryStream := TMemoryStream.Create;
  try
    RichEdit.Lines.SaveToStream(MemoryStream);
    MemoryStream.position := 0;
    if MemoryStream.size > 0 then
      SetString(RTFText, pchar(MemoryStream.Memory), MemoryStream.size);
  finally
    FreeAndNil(MemoryStream);
  end;
  Result := String(RTFText);
end;