wie kann man den Inhalt eines TRichedits in ein TMemo übertragen?

[DeddyH]

Delphi-Quellcode:

procedure TfrmMain.btnCopyClick(Sender: TObject);
var Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    RichEdit1.Lines.SaveToStream(Stream);
    Stream.Position := 0;
    Memo1.Lines.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;