Carregamento dinamico de pacotes

olá pessoal, estou chamando um form carregado a partir de uma bpl que está sendo carregada dinamicamente.

  TmyForm = class(Tform)
  public
    constructor Create(Awoner : TComponent); reintroduce; virtual;
  end;
 


Tfrmbpl = class(TmyForm)

  private
    { Private declarations }
  public
    { Public declarations }
    Constructor Create(Aowner:TComponent);
  end;

{ TmyForm }

constructor TmyForm.Create(Awoner : TComponent);
begin
    inherited Create(Awoner);
   ShowMessage('Construdor base');
end;

{ Tfrmbpl }

constructor Tfrmbpl.Create(Aowner:TComponent);
begin
  inherited Create(Aowner);
  ShowMessage('Construdor filho');
end;

initialization

  RegisterClass(Tfrmbpl);
----------------------------------------------------------------------
var
  AClass: TClass;
  AForm: TForm;
  FPackageHandle: Integer;
begin
  FPackageHandle := LoadPackage(PessoaPkg);
  AClass := GetClass('Tfrmbpl');
  if AClass <> nil then
  begin
    Application.CreateForm(AClass, AForm);
    AForm.ShowModal;
  end;


quando executo o  create ele não chama o construtor das classes Tfrmbpl e nem da Tmyformbpl.


qualquer ajuda é bem vinda...