若是引用BPL文件中的的表单。
uses unit1;
……
procedure TButton1.Click(Sender:TObject);
var
Handle:THandle;
BplForm:TBplForm; //假若表单名为TForm1;
begin
Handle:=LoadPackage('包名.BPL');
if Handle<>nil then
begin
try
BplForm:=TBplForm.Create(Application)
BplForm.Showmodal;
finally
BplForm.Free;
UnLoadPackage(Handle);
end;
end;
end;