Коротко. Подумалось

Вот смотрите, мы пишем:

type
 TO = object
 end;//TO
 
 TI = interface(IUnknown)
 end;//TI

 TC = class(TObject)
 end;//TC

 TO1 = object(TO)
 end;//TO1

 TI1 = interface(TI)
 end;//TI1

 TC1 = class(TC)
 end;//TC1

Почему бы Embarcadero не сделать возможность написать так:

type
 TO = object
 end;//TO
 
 TI = interface(IUnknown)
 end;//TI

 TC = class(TObject)
 end;//TC

 TO1 = inherited(TO)
 end;//TO1

 TI1 = inherited(TI)
 end;//TI1

 TC1 = inherited(TC)
 end;//TC1

И ещё:

"

Helper Syntax

The syntax for declaring a class helper is:

type
   identifierName = class|record helper [(ancestor list)] for TypeIdentifierName
     memberList 

   end;"

Мне ОДНОМУ кажется, что слова class|record - это ЛИШНЕЕ?