ActiveX控件属性为自定义对象时的难题，请各位大侠救急！！！！！！！！！(200分)

我首先建立两个VCL控件 TA,TB，其中B有一属性PB，其类型为TA，然后，基于A与B，创建两个ActiveX控件AX与BX。并加入到同一个类库中。
在Delphi自动生成的框架中，BX丢失属性PB，于是手工为BX添加属性PB，类型设置为AX*。接着Delphi自动产生两个过程：Get_PB与Set_PB。
在实现部分的Get_PB中写入如下代码：
function TB.Get_PB:BX;
begin
result:= FDelphiControl.PB;
end;
其中FDelphiControl为自动生成的对象级变变量，且初始化为
FDelphiControl ：＝ Control as TB
然后在生成OCX是出错，指BX与TB类型不符。
强制改变类型，将代码改为：
result:= FDelphiControl.PB as BX
结果，指不支持该种操作。
Get_PB中的代码要如何写呢，我手上的书都没有讲过这个问题，肯请各位大侠高手指点。为这个问题我都急了好几天了。