覆盖事件

我想override onkeypress 控件该如何
我覆盖 click的时候直接 procedure click; override
但我用这个方法覆盖 procedure keypress; override 就不行。
如果想覆盖的这个控件怎么办。覆盖后如何得到 key参数。麻烦各位高手告诉下我，
谢谢
我是跟着 delphi控件开发浅入深出来做的。思考题需要这个。