Problema con "class of"

[Javierus]

Empezado por delphi.com.ar

Agrego a lo que respondieron, que no es claro el diseño de lo escrito, por lo que pregunto:

• ¿Cuál sería la necesidad de definir TunoClass y TdosClass ?
• ¿No te sirve evaluar "if a is Tuno..."?

¿?

No, en este caso no; se recibe una referencia a una clase, y a partir de ella hay que crear un objeto de la misma, pero de distinta forma. Créeme, en el caso real, tiene todo el sentido.
Como dije, lo resolví con InheritsFrom