Bpl包的调用问题，盼望解答！

Question

我做了3个bpl包，其中第一个是TDataModule转换而成，另外两个包在request里面包含了该数据模块包，并且在后面的包都使用了数据模块的数据库连接。然后兴建一个工程，在project的选项里面选中Build with runtime package。但是无论是否在包列表里面加入这三个包，后面两个包引用数据模块中的数据集控件时都会报“标记没有引用存储”的错误。
   主窗体查找数据模块类时也保同样的错误。代码见下：
procedure TForm1.Button1Click(Sender: TObject);
var h,Dh: HMODULE;    frmXsjbxx: TForm;
    frmDm: TDataModule;
begin
  try
    h := LoadPackage('C:\temp\testBpl1\Pk\pkXsbj.bpl') ; 
    //下面的一行在点击buuton1执行时出错
    frmDm := TDataModule(TComponentClass(FindClass('Tdm')).Create(Application));
    frmXsjbxx := TForm(TComponentClass(FindClass('TForm2')).Create(Application));
    frmXsjbxx.showmodal;
  finally
    frmXsjbxx.Free;
    frmDm.free;
    unLoadPackage(h);
  end;
end;盼望指教！