怎样扩展onchange事件(100分)

我自己写了个组件由Edit继承过来的，想在onchange事件里东东，该怎样声明onchang事件

你可以看一下控件开发的书呀！他细点吗！

FOnChange: TNotifyEvent;
procedure Change; dynamic;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
procedure Txxxxx.Change;
begin
Changed;
if Assigned(FOnChange) then FOnChange(Self);
end;

procedure Txxxxx.xxxx;
begin
//code
//
Changed;
end;