Delphi通过inherited 可以调用父类的方法，但是没有提供直接调用父类的父类的方法（爷爷类），通过变通的方式实现如下：
假设父类是TFar，爷爷类TGrand，调用爷爷类的Write方法：
type TWriteProc=procedure of Object; var WriteProc:TWriteProc; .... TMethod(WriteProc).Code:=@TGrand.Write; TMethod(WriteProc).Data:=Self; WriteProc;
原文：http://www.cnblogs.com/hezihang/p/4139656.html