Delphi dicas

Carrega form de um pacote(bpl)

Function CarregaForm(const Pacote: String; const Classe: String): TFormClass;

var

FormClass: TFormClass;

HandlePack: HModule;

begin

        //tenta carregar o pacote

        HandlePack := LoadPackage(Pacote);

        if HandlePack > 0 then

        begin

                FormClass := TFormClass(GetClass(Classe));

                Result := FormClass;

        end

        else

        begin

                Result := nil;

        end;

end;