控件制作扫盲！ （不好意思）(50分)

想自己开发一下控件。发现自己原来真的很臭。：（
想修改、增加一下某个控件的事件，不知道在代码中如何写？
记得以前试过一下的，是重载某个东东。忘了！ ：（
请教！

unit MIEdit;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TMIEdit = class(Tedit)
private
procedure keypress(var key:char);override;
{ Private declarations }
protected
{ Protected declarations }
public
constructor create(owner:tcomponent);override;
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation
procedure tMIedit.keypress(var key:char);
begin
if not (key in['0'..'9',#8,#13]) then key:=#0;
inherited;
end;
constructor Tmiedit.create(owner:tcomponent);
begin
inherited ;
end;
procedure Register;
begin
RegisterComponents('michael', [TMIEdit]);
end;

end.
将就看一看

找个控件开发包，可以节省很多时间。
http://www.delphiuser.com/
eagle software 的　Component Development Kit。

控件栏进不去，似乎是ASP没写好。 ：）

找本中文教材看看再联系实际或许会学得快一些。

找本专门讲控件的书学.

谢谢各位指教。

多人接受答案了。