warning_inherited_test
type TMyClass0 = class(TObject)
This is a class without ancestor name specified. Inherited is TObject. Inherited class is TObject.
TObject
procedure Clear;
Inherited is Clear. Inherited class is TObject.
Clear