我建立一个表单  tForm1=class(tFORM)     
该表单中加入几个按钮，
但我需要将这个表单类派生一个类 TssForm=Class（TForm1）
这个派生类的将重写原来按钮的相应函数，但我每次调用的结果都是响应的原来的基类（TForm）的响应
TFORM1 中的代码：
TYPE 
TFORM1=class（TForm）
    Button1: TButton;
    Button2: TButton;
....
procedure Button2Click(Sender: TObject);virtual; 
...
procedure TForm1.Button2Click(Sender: TObject); ///Button2Click
begin
  MessageBox(0,PCHAR('Excel数据库连接失败！'),'基础类输出',mb_ok);
end;
派生类的代码：
TYPE
  TssForm1=class(TForm1)
  public
    constructor Create(Conn:TADOConnection;ExcelFile:String); overload; //重载一个构造函数
    procedure Button2Click(Sender: TObject); Override;
构造函数能运行正常，但是每次在表单上点击按钮时候都是不是派生类的相应方式。不知道如何处理？？？？？