Puedes evitar el usar el ClipBoard usando Stream. Aquí te muestro como copiar del RichEdit3 al RichEdit1.
Lo de ms.position := 0 puede que no sea necesario.
Procedure Copia_REdit ;
var
ms : TMemoryStream ;
Begin
Try
ms := TMemoryStream.Create ;
RichEdit3.Lines.SaveToStream ( ms ) ;
ms.position := 0 ;
RichEdit1.Lines.LoadFromStream( ms );
Finally
ms.free ;
end ;
end ;
No recuerdo si así se mantiene el tipo de letra, color, etc.
Espero que te sea útil.
Ramón.
