Copiar el texto de un RichEdit

[roman]

Hay varias formas.

Una muy sencilla es usando el método CopyToClipboard del primer RichEdit y PasteFromClipboard del segundo.

Si quieres copiar todo el contenido del primer RichEdit y/o reemplazar todo el texto del segundo usas el método SelectAll de uno u otro control.

Este método usando el portapapeles puede no ser muy conveniente ya que visualmente se selecciona el texto.

Otra manera de hacerlo es a través de un Stream:

Código Delphi [-]
var
  Stream: TStringStream;

begin
  Stream := TStringStream.Create('');

  try
    RichEdit1.Lines.SaveToStream(Stream);

    Stream.Seek(0, soFromBeginning);
    RichEdit2.Lines.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

// Saludos