开发控件出错(50分)

我开发的一个VCL控件在编译这一行时出错
uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls,shellapi;

type
tdropfilenotifyevent=procedure(sender:tobject;filenames:tstringlist) of object;
Tdropfilelistbox2 = class(TListBox)
private
{ Private declarations }
fenabled:boolean;
[red]fdropfile : TMynotifyEvent; <------这一行 [/red]
[black]procedure dropfiles(var msg:tmessage);message wm_dropfiles;
procedure setdropenabled(benabled:boolean);[/black]
[red]错误信息
dropfilelistbox2.pas(14): Undeclared identifier: 'TMynotifyEvent'[/red]

TMynotifyEvent没声明啊，看样应该定义成:
fdropfile :tdropfilenotifyevent;

在那里声明的类的unit要在uses中,注意不是在底下的uses,而是上面第一个uses

问题解决了