怎么动态加载BPL

在一个bpl封装了几个窗体单元，现在就是可以show出来，但是，show出来的窗体上的任何事件都没有用（就是点击或一些事件都不起作用了）
  求解。为什么？

Delphi(Pascal) code

procedure TForm1.mniN1Click(Sender: TObject);
var
  Aclass: TPersistentClass;
begin
  Pack := LoadPackage('package1.bpl');
  if Pack <> 0 then
  begin
    Aclass := GetClass('Tform1');//这里一直都是空值
    if Aclass <> nil then
    begin
      with TComponentClass(Aclass).Create(Application) as TCustomForm  do//可以是这里的问题
      begin
        try
          Show;
        finally
        end
      end;
    end;
  end;
  //TForm(Aclass).BringToFront;
end;

不知道, 帮你顶下, 说不定你就知道了.