由 TCustomControl 派生出来的控件如何响应右键(20分)

我做了一个控件，是由 TCustomControl 派生出来的，但响应右键上无效（但不报错），请各位指教，谢谢！

private
...
procedure RightDown(var Message: TMessage); message WM_RBUTTONDOWN;
....

那具体的内容应该如何写呢？能不能给我写段，万分感谢！[]

type
yourcontrol=class(TCustomControl)
private
....
procedure RightDown(var Message: TWMMouse); message WM_RBUTTONDOWN;
public
....
end;


proceudre YourControl.RightDown(var Message: TWMMouse); message WM_RBUTTONDOWN;
begin
if assigned(OnMouseDown) then
with message do
OnMouseDown(self, mbRight, keytoshiftstate(keys), xpos, ypos);
end;

万分感谢！