第一个 inherited 是截获消息的处理函数，它的声明部分不带override（重载），表示对该消息截获处理，但不影响其它截获该消息的函数执行；若不加 inherited 则，本类其它原有的截获该消息的函数将不执行。 第二个inherited 是对其父类的同名函数进行重载，保证当执行完其父类原有代码外，再执行本函数代码，若 inherited 放在本函数代码后表示，执行完当前代码后再继承执行原来的父类代码，这种情况常用于析构函数Destroy;若无 inherited 则将不执行父类代码。
第一个 inherited 是截获消息的处理函数，它的声明部分不带override（重载），表示对该消息截获处理，但不影响其它截获该消息的函数执行；若不加 inherited 则，本类其它原有的截获该消息的函数将不执行。 第二个inherited 是对其父类的同名函数进行重载，保证当执行完其父类原有代码外，再执行本函数代码，若 inherited 放在本函数代码后表示，执行完当前代码后再继承执行原来的父类代码，这种情况常用于析构函数Destroy;若无 inherited 则将不执行父类代码。
To zy61(张旸) 对Delphi许多基类重载可以不加inherited（如TObject的Create），那只是因为它们的基类源码中该方法的实现为空！而更多的或是自己派生的或是有条理的代码是必须要加的。