关于Package的动态调用问题。

如下略些例子：（可能大家很熟悉）aDBConnect := LoadPackage(DBPackages);dataModuleClass := GetClass('TConcreteDataModule');admGlobal :＝TDataModule(TComponentClass(dataModuleClass).Create(Application));for iCounter := 0 to admGlobal.ComponentCount - 1 do
begin  if UpperCase(admGlobal.Components[iCounter].ClassName) = 'TQUERY' then
  begin    aQuery := TQuery(admGlobal.Components[iCounter]);
    DataSource1.DataSet := aQuery;
    break;  end;end;上面的例子是通过遍历获取bpl包中一query控件的程序。 请问大家，如果想动态调用bpl包中类的方法（而不是控件），怎么调用啊？请大家赐教一下。