[senda]

Solucionado. He cambiado la interfaz de la función copia:

 procedure Cp (var copia : TObjeto);

Y he insertado valores por defecto en el constructor que ya tenía.