[ecfisa]

Hola TecnoBestia.

Me alegra que hayas solucionado el problema, pero creo que el amigo escafandra se refería a algo parecido a esto:

Código Delphi [-]
...
type
  TIndividuo = class(TPersistent)
    procedure Assign(aCustomer: TPersistent); override;
  private
    FNombre: string;
    FEdad: Integer;
    ...
  public
    ...
    property Nombre: string read FNombre write FNombre;
    property Edad  : integer read FEdad write FEdad;
   ...
  end;

procedure TIndividuo.Assign(aCustomer: TPersistent);
begin
  if aCustomer is TIndividuo then
  begin
    FNombre := TIndividuo(aCustomer).FNombre;
    FEdad   := TIndividuo(aCustomer).FEdad;
    ...
  end
  else
    inherited Assign (aCustomer);
end;
...
end.

//--------------------------------------------------------------
...
procedure TForm1.btnAssign(Sender: TObject);
var
  Individuo1, Individuo2: TIndividuo;
begin
  Individuo1 := TIndividuo.Create;
  Individuo1.Nombre := 'PEPE';
  Individuo1.Edad := 15;
  Individuo2 := TIndividuo.Create;
  Individuo2.Assign(Individuo1);
  Individuo1.Free;
  ShowMessage(Format('%s %d',[Individuo2.Nombre, Individuo2.Edad]));
  ...
end;

Un saludo.