procedure THostForm.LoadLocalModules;

var

  i, x : integer;

  parentnode: TTreeNode;

  controller : THYModuleController;

  plugindescriptor : THYPLuginDescriptor;

begin

  TreeView.Items.BeginUpdate;

  with ModuleManager do

  begin

    LoadModules(GetAppPath + 'plugin/*.dll');

    for i := 0 to (ModuleCount - 1) do         

    begin

      controller := Modules[i].ModuleController;

      if blTree(controller.Descriptor.Name) <> nil then

        parentnode := blTree(controller.Descriptor.Name)

      else

        parentnode := TreeView.Items.AddChildObject(NIL,

          controller.Descriptor.Name, controller);

      for x := 0 to (controller.PluginDescriptorCount - 1) do

      begin

        plugindescriptor := controller.PluginDescriptors[x];

        TreeView.Items.AddChildObject(parentnode,

          plugindescriptor.Name, plugindescriptor);

      end;

    end;

  end;

    TreeView.Items.EndUpdate;

end;