高手请进(关于继承与重载类方法的问题)

自定义了一个类,从TDBNavigator类继承的, 想改写BtnClick方法, 用下列代码作为测试执行效果,为什么没有出现提示对话框?procedure BtnClick(Index: TNavigateBtn); override;
......procedure TmyDBNav.BtnClick(Index: TNavigateBtn);
begin
  inherited BtnClick(Index);
  if Index=nbDelete then
    if (MessageDlg('您确定要删除该记录吗?', mtConfirmation,mbOKCancel, 0) <> idCancel)
    then
      ShowMessage('您确定了!')
    else
      ShowMessage('您取消了!');
end;