Duplicar "objetos"

[[xEsk]]

A mi tb me costo escribirlo, a ver si puedo definirlo de otra forma, hehe

Me refiero a q se cree una segunda instancia, q sea una copia de la primera (vamos con los mismos valores) pero q si elimino la primera, esta segunda (la nueva) no se vea afectada de ninguna forma y siga funcionando tranquilamente.

No se si me he explicado mejor (en mi cabeza lo tengo muy claro, pero me cuesta definirlo de una forma q se entienda bien xDD)

El mismo ejemplo, pero mostrado de otra forma:

Código Delphi [-]
var
  obj1, obj2: TMyObject;
  puntero1, puntero2: Pointer;

begin
  obj1:=TMyObject.Create;   
  puntero1:=obj1;
  obj2:=obj1; 
  puntero2:=obj2;

  if puntero1 = puntero2 then
    ShowMessage('Vaya, apuntamos al mismo sitio de memoria!!');    

  obj1.Free;
  // El obj2, no hace falta liberarlo... xD

Saludos.