rxrichedit 컨트롤 String 으로 저장

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream : TMemoryStream;
  Str : String;
begin

  Stream := TMemoryStream.Create;
  RxRichEdit1.Lines.SaveToStream(Stream);
  Stream.Position := 0;
  Memo1.Lines.LoadFromStream(Stream);
  Stream.Free;
  Str := Memo1.Text;

  //RxRichEdit1.Lines.SaveToStream  .SaveToFile('d:\aaa.rtf');
  showmessage(str);
end;