Delphi exe动态调用加载bpl 报地址错误的解决方法

加载bpl：

ModuleInstance1: HMODULE;

ModuleInstance1 := LoadPackage('TestA.bpl');

显示窗口：

var

frm: TCustomForm;

begin

frm := CreateFormByClassName('TTestForm');

try

frm.ShowModal;

finally

frm.Release;

end;

end；

function CreateFormByClassName(const ClassName: string): TCustomForm;

var

AClass: TPersistentClass;

begin

AClass := GetClass(ClassName);

If AClass = nil then

exit;

Result := TComponentClass(AClass).Create(Application) as TCustomForm;

// 或Result:=TCustomForm(TComponentClass(AClass).Create(Application));

end;

------------------------------------------------------------------------------------------------------------------------

问题出现在取值AClass时总提示为nill，

原因可能为：主程序exe没有勾选 build with run package