我的bpl怎么调用不起来？高手指点一下。(100分)

我的bpl是通过new package的方式建立的，是一个仅仅包含一个form的类。
调用时我采用的方式是：
procedure TForm1.Button1Click(Sender: TObject);
var
PackageModule: HModule;
AClass: TPersistentClass;
begin
PackageModule := LoadPackage('E:/example/delphi/bpl/MyPackage.bpl');
if PackageModule <> 0 then
begin
AClass := GetClass('TForm2');

if AClass <> nil then
with TComponentClass(AClass).Create(Application)
as TCustomForm do
begin
ShowModal;
Free;
end;

UnloadPackage(PackageModule);
end;
end;

我单步跟踪，PackageModule是不为0的，但是AClass怎么都是nil。
没搞懂怎么回事，谁能指点一下？

怎么没有人回答？

呵呵, 这样: 主菜单/project/options/packages/build with runtime package打上钩

to：大富翁WW
不管用。

在bpl里有RegisterClass吗？
http://www2.borland.com.tw/tw/reference9-2.html

问题解决，结贴

问个问题?怎样开发BPL,有高手能指教一下吗?说不下流程吧!努力学习中..........

多人接受答案了。