In Firemonkey Delphi 10.3, I create a custom TFrame type to add fonctionnality :
TCustomFrame = class(TFrame); TFrameObserver = class(TCustomFrame, IObse