Como puedo asignar una copia de una instancia sin que sea una referencia.

[TecnoBestia]

Mi clase es muy simple y es para la aplicación de un algoritmo denominado Simulating Annealing para hacer clasificación de datos, mi clase es un Individuo que que contendrá únicamente lo que se muestra en el código siguiente:

Código PHP:

Individuo=class(TObject)
  private
  protected
  public
    VClasificacion:VectorIR;
    VCoordenadas:VectorIR;
    Inercia:Double;
    VDistancias:VectorIR;
    TieneClasesVacias:Boolean;
    procedure CargarClasificacionYDistancias();
    procedure GenerarVecino(CantiParticion:Integer);
    procedure CGRealesParaClasificacion();
    function RecalcularInercia:Double;
  published
    //destructor Destroy; override;
end; 


Si creo la clase derivada de TObject y genero el procedimiento GenerarCopia tal como se muestra en el código siguiente

Código PHP:

  procedure Individuo.GenerarCopia(IndiEnviado:Individuo);
  begin
    VCoordenadas:= IndiEnviado.VCoordenadas;
    VClasificacion:=IndiEnviado.VClasificacion;
    VDistancias:=IndiEnviado.VDistancias;
    Inercia:=IndiEnviado.Inercia;
    TieneClasesVacias:=IndiEnviado.TieneClasesVacias;
  end; 


Y uso éste para poder realizar la copia y no la asignación del puntero, ¿qué problema tendría? ¿qué estoy perdiento al hacerlo así, ya que en este momento me está funcionando? Pero claro que si es mejor hacerlo de la manera que ustedes indican lo haré sin problema.