[求助]如何把一个控件事件声明成虚方法？

class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
virtual void __fastcall Button1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
我想把某个控件的事件变成虚方法，以便日后继承前覆盖。
但是他却报错。不知大家是怎么实现的？请教中。