声明方法指针必须加上 of object ,表示它指向的是一个类的方法。
如下:
type
  TNotifyEvent=procedure(Sender:TObject) of Object;