怎么获得几个组件第一次出现的共同祖先类(100分)

如何获得几个（2个或2个以上）组件的共同祖先类。
由于是单继承的体系，共同的祖先类肯定是TObject，但是我想获得的是这几个组件第一次祖先类完全相同的类名称。
如：
TLabel -> TCustomLabel -> TGraphicControl -> TControl -> TComponent -> ...
TEdit -> TCustomEdit -> TWinControl -> TControl -> TComponent -> ...
TButton -> TButtonControl -> TWinControl -> TControl -> TComponent -> ...
TShape -> TGraphicControl -> TControl -> TComponent -> ...
。。。
第一次相同的祖先是 TControl
有没有简便的方法，求出这些不同类型组件的第一次相同的祖先?

不断向上继承比较.但得考虑继承深度,

不断的找组件的Parent是可以解决的，我想问一下有没有简单的办法