TObject = class
TPersistent = class(TObject,IFPObserved)
TComponent = class(TPersistent,IUnknown,IInterfaceComponentReference) 
TLCLComponent = class(TComponent)
TControl = class(TLCLComponent)