[[Lepe]]

A mí no me gusta para nada hacer el moldeo de tipos (no hay más remedio, por eso uso siempre una función tonta):

Código Delphi [-]

function TMiClase.AsMiClase : TMiClase
begin
   Result := Self
end;

así se hace más clara la lectura del código:

Código Delphi [-]
ShowMessage(Nodo.Data.asMiClase.Texto)

Saludos