Message handler method in Delphi ignores that it is “private”

Question

There are two classes: TBaseClass and TDerivedClass, both in separate units.

TBaseClass

unit InhPriv.BaseCla