怎么去重写派生类中的控件的事件

如何去重写派生类中的控件的事件
有个表单的类：
type
  TFactoryImprotForm = class(TForm)
  Button1: TButton;////包含一个按钮控件,在类中不做任何事情
  ....
我因为在上面表单基础上需要重新改写一个构造函数，所以就从这个表单的类中在派生一个类：
   
  TFactoryImprotForm1=class(TFactoryImprotForm)
  public  
  constructor Create(Conn:TADOConnection); overload;////这个构造函数需要接受一个ADOConntion 变量
  procedure Button1Click(Sender: TObject);//////问题出在这里，希望重新写按钮事件

现在需要点击派生对象的按钮【button1】的时候，根据ADOConntion对象的数据来进行操作，如果按钮事件写在TFactoryImprotForm 中肯定是没有ADOConntion变量以及结果的，现在的问题是：
如果直接加在TFactoryImprotForm1 中却没有任何相应，
procedure TFactoryImprotForm1.Button1Click(Sender: TObject);
并且在按钮的相应事件中加入断点也会被系统自动删除，根本调试的时候进入不了这个重写的事件相应函数中去。

虽然加载了事件的相应函数，并且构造的对象也是TFactoryImprotForm1。。。
不知道还差什么没有申明。

------解决方案--------------------
TFactoryImprotForm1=class(TFactoryImprotForm)
procedure Button1Click(Sender: TObject);//这句写在TFactoryImprotForm1下面