¿Cómo puedo llamar al método heredado de una clase que no es el ancestro directo?

[marto]

Holap,


No lo he probado, pero si no se me escapa nada tendría que ser más sencillo que todo eso. ¿No llegaría con hacer un cast de Self a la clase desada?

Procedure T3.P1;
Begin
  T1(Self).P1;  
End;

O me estoy dejando algo?