[roman]

type
  TObjetoAnterior = class
    ...
  end;

  TNuevoObjeto = class
    property ObjetoAnterior: TObjetoAnterior;
  end;

// Saludos