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;