Pasar datos de un RichEdit a otro RichEdit

[santiago14]

Buenas, que tal.
Quiero pasar los datos desde un richedit hacia otro. La cosa es que en un richedit tengo todos los chiches (botonera para negrita, cursiva, etc.) y en el otro solamente quiero mostrar lo que se hizo en el anterior.
La cosa es que en el primero pongo"bonito" el texto y cuando lo paso, me lo muestra en texto plano.

¿Cómo debo hacer para que pase el texto y todo el estilo que se le dió?
Espero haberme explicado bien.

Saludos, Santiago.

[ecfisa]

Hola santiago14.

Código Delphi [-]
procedure CopiarRE(const Origen: TRichEdit; Destino: TRichEdit);
var
  Stream: TStream;
begin
  Stream:= TMemoryStream.Create;
  try
    Origen.Lines.SaveToStream(Stream);
    Stream.Position:= 0;
    Destino.Lines.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

Saludos

[[duilioisola]]

Debería funcionar así:
R1 y R2 RichEdit

• R1.Text := T2.Text;
• R1.Lines.Assign(R2.Lines);

[santiago14]

Buenas.
Los ejemplos que me han dado aquí funcionaron bien.
Pero resulta que ahora puse una pequeña imagen en el richedit y cuando lo paso de un rich a otro, no pasa. No es algo complicado, es un simple icono .bmp para probar.
El texto pasa, como siempre, pero la imagen no.

¿Sugerencias? Gracias.

Santiago.