急：ActiveFormX控件，怎么自定义事件？(100分)

我最近做了个ActiveFormX控件，现在需要定义个自定义事件，我用向导Edit-->add to interface增加了一个UploadComplete事件，并在
procedure TActiveFormX.Initialize;
begin

inherited Initialize;
。。。。。。
OnUploadComplete:=UploadCompleteEvent;
//新增加的事件
end;

并声明了UploadCompleteEvent方法，也实现了方法。
请问为什么，在编译时，怎么提示
[Error] pas_main4.pas(109): Undeclared identifier: 'OnUploadComplete'
这是怎么回事?怎么解决？

先顶下

你好像是和我一个公司的啊.在电梯里听到有人也讨论这个问题.

很难吗?我回头把我做的ocx翻翻.当初我里面写了好几个事件.都没问题啊

方法必须是safecall的，也就是你在里面自己定义一个方法不可以。
你打开菜单View->Type Library
左边有个树，打开一个好像红色棒棒糖的树，单击右键，选择new->Method，然后定义一个方法，点一下刷新按钮，在你的程序中找到这个方法然后showmessage('ok');测试一下。