控件事件的传递问题.(100分)

我做了一个控件, 从A类窗口组件继承下来,代码中又创建了B类窗口组件, B类构建在A类中,所以呈现给用户的是A类组件。并且代码中公布了A类的OnDblClick属性，但实际使用时发现当双击窗体上的A类组件时， 实际双击的是里面的B类组件，所以写在A.OnDBblClick里面的代码根本不起作用。

有哪位高手帮忙解决一下，只要双击A的任何一个地方，都能正确执行其OnDBlClick代码。

type
TA=class(TComponent)
private
B:TB;
procedure B_DblClick(Sender:TObject);
public
constructor Create(Owner:TComponent);
end;

procedure TA.Create;
begin
inherited;
...
B.OnDblClick:=B_DblClick;
end;

procedure TA.B_DblClick(Sender:TObject);
begin
if Assigned(OnDblClick) then
OnDblClick(Sender);
end;

接受答案了.