GetClass返回值都为Nil的解决方案

Question

{Delphi2006中Package1.bpl中的Form1窗体的代码如下：}
initialization
  RegisterClass(TForm1);   //注册
finalization
  UnRegisterClass(TForm1);   //注销
end.
----------------------------------
{Delphi2006应用程序的代码如下：}
Var
  AClass :TPersistentClass;
Begin
  LoadPackage('Package1.bpl');    //加载Package包
  AClass:=GetClass('TForm1');
  if AClass=Nil then Exit;       
  TCustomForm(TComponentClass(AClass).Create(Application)).ShowModal;   //显示窗体
End;
注意：应用程序Project中的选项：（打勾）Build With Runtime Packages;否则Package中的Form1无法显示出来，即AClass=Nil而Exit;