紧急关于控件事件的

紧急求教：关于控件事件的
这里假定有一控件TButton：btnOk：
btnOk的onMoveDown事件是存在的，假定事件是执行A动作的，现在我在某种情况下（比如点击PopupMenu的某个TMenuItem：miA）需要onMoveDown事件执行B动作，然后我又点击PopupMenu的某个TMenuItem：miB，使onMoveDown事件又重新是执行A动作的事件，听听各位高手的意见。
顺便把我的想法说一下：
点miA时：把A动作事件先赋给某个事件Temp，然后onMoveDown事件执行B动作事件；
点miB时，onMoveDown事件又从事件Temp赋值回来；
但是如果一个窗体内有10个或者100个TButton控件时呢？
不知道大家理解我的意思没，呵呵。

[解决办法]
给这100个按钮赋上同样的事件是吗?
[解决办法]
方法复制可以参考：

Delphi(Pascal) code

var  ClickEvent: TNotifyEvent;begin  ClickEvent := btn1Click;end;
[解决办法]
用ActionList,配合参数传递，就可以达到楼主要的效果。