继承和改写可视控件(10分)

我用如下方式定义：
type
Tlabel1 = class(Tlabel)
procedure MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); OVERRIDE;
end;
或
type
Tlabel1 = class(Tlabel)
procedure MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
end;
可系统总报错，不知如何定义？请各位帮帮忙！多谢！

把 sender 去掉就可以了。

接受答案了.