包中类导出实例

procedure TFrmMain.btn1Click(Sender: TObject);
var
  MyObj: TbplTest;
  p: Pointer;
  d:TClass;
  s: TFormShow;
begin
  d := GetClass('TTbplTest');
  if d <> nil then
  begin
    MyObj := d.NewInstance as TbplTest;
    MyObj.Create;
    @s:= MyObj.MethodAddress('ShowInfo');  

    s('test');
    FreeAndNil(MyObj);
  end;

end;