请教一个删除菜单的问题！

Question

谁用过这个控件：TBToolbarMainMenu
我在程序里定义了两个变量：
var
  
  TBSubmenuItemTech: TTBSubmenuItem;  //定义子菜单
  TBItemTech: TTBItem;  //定义下拉菜单项
begin//创建子菜单
  TBSubmenuItemTech := TTBSubmenuItem.Create(nil);
  TBSubmenuItemTech.Caption := '文件';
//将子菜单插入指定位置
  i := 2;
  TBToolbarMainMenu.Items.Insert(i, TBSubmenuItemTech);
//动态生成
   TBItemTech := TTBItem.Create(nil);
   TBItemTech.Caption:=‘功能1’；
   TBToolbarMainMenu.Items[i].Add(TBItemTech);
end;以上是我做的动态生成的菜单，运行成功，可是我想动态的删除菜单，我的思路是这样的
 for a:=0 to TBItemTech.Count-1 do
  TBItemTech.delete(a);
试用了几个函数都没好使，请教各位高手,问题很棘手！

Answer 1

不管删除什么组件都要用downtofor a:=TBItemTech.count downto-1 to 0 do  
  TBItemTech.delete(a);

Answer 2

TBItemTech.delete(a);
这条语句根本就没起作用！！！！！！！

Answer 3

我把TBItemTech能引出来的有关删除的函数差不多都试过了，可就是删不掉，这是怎么回事呀？

Answer 4

//将子菜单插入指定位置
  i := 2;
  TBToolbarMainMenu.Items.Insert(i, TBSubmenuItemTech);
你试下看找到这个指定位置，把它销毁看，用destroy或release,
感觉释放好象要关闭菜单时才能free;

Answer 5

我不是要删除TBToolbarMainMenu.Items，我是要删除TBItemTech（下拉菜单项）。