TTreeView. Переопределение метода Change.

[НЕ_АЙС]

type
 TDirTreeView = class(TTreeView)
   protected
    procedure  Change(Node: TTreeNode); dynamic;
   public
    constructor Create(AOwner: TComponent);
 end;


procedure TDirTreeView.Change(Node: TTreeNode);
begin
  ShowMessage('fff');  
  inherited Change(Node);
end;

Долгожданное сообщение так и не появилось Почему?

[НЕ_АЙС]

ВСё разобрался. override нужен был