怎样判断一个事件是否存在？ ----今早不小心弄丢了100分，容后补分，说话算话！ (0分)

你先定义一个接口，该接口定义了你的方法spAppend
当你的窗口需要spAppend 方法时，该窗口实现此接口
在程序中查询此窗口是否实现了此接口，如实现了此接
口就通过接口来调用。
这思路你看符合你的要求不？

谢谢各位大富翁，给了这么多建议和意见。
本贴已经解决此问题，真个是内力超高的时候太阳穴是不会突出的，请看本贴：

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2292234

结贴。

错了，错了！楼上的我没有注意，刚才用spAppeng过程删除后，仍无法通过编译！

to 楼主 ：我把代码写这么清楚了，不知道你还想要如何？

To: Baseyueliang, 实在不知道咋办，感谢你继续指教俺。
按照你所讲的，就这样：
var TmpEvent:TNotifyEvent;
begin
@TmpEvent := nil;
@TmpEvent:=MethodAddress('spAppend');
if Assigned(@TmpEvent) then
tbAppend.OnClick:=TmpEvent
else tbAppend.OnClick:=Nil;
end;
//编译时出现以下提示：
[Warning] uChildWin.PAS(64): Variable 'TmpEvent' might not have been initialized

var TmpEvent:TNotifyEvent;
begin
TmpEvent := nil;//不要这句，有个warning又何妨？
@TmpEvent := nil;
@TmpEvent:=MethodAddress('spAppend');
if Assigned(@TmpEvent) then
tbAppend.OnClick:=TmpEvent
else tbAppend.OnClick:=Nil;
end;

[17:35]编译已经通过，正在测试。..........
[17:50]很好，这回是真正通过测试。
非常感谢 baseyueliang 富翁（小姐/先生）不厌其烦的指导！
解决了问题很是开心，分倒是小事了。但还是真诚地请你收下欠条：
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
※ 欠 条 ※
※ 兹有本人借富翁 baseyueliang 100分（大写：壹佰分）整，不计息。 ※
※一旦本人存分达到100分，即应先行归还之。呵呵。 ※
※ ylung@www.delphibbs.com 2003.11.13 ※
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

当然也感谢其他富翁，面包也会有的，呵呵。
瞧，俺今天就挣了22分，要是有这个速度，很快就给大家分饷！
. .
... :``..':
: ````.' :''::'
..:.. : .'' :
``. `: .' :
: : : :
: : : :
: : : :
: : :..''''``::.
: ...:..' .''
.' .' .::::'
:..'''``:::::::
' `::::
`::.
`::
:::
..:```.:'`. ::'`.
..' `:.: ::
.: .:``:::
.: ..'' :::
: .'' .::
: .'`::
::
::
:
:

今天终于赚够了147分，现分135分到以下帖，请你们
(baseyueliang,pihome,hongxing_dl,vmao,xiaolinj79,FlySnow2003,yang_113)
去此贴拿分。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2328999

你们在以下两贴中辛苦了：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2290982
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2292234
再次感谢你们为我解决问题提供了热情的帮助。