Menu菜单的引用

Question

Menu菜单按钮，是这样的
 File  Edit
  A    D
  B
  C
我现在要做的是，把子菜单 B 也加到Edit 中
但File 中也还存在着 B
就是在 Edit 中增加 子菜单 B 的引用 ，有点像拷贝
procedure TForm1.btn1Click(Sender: TObject);
var
  NewmenuItem: TMenuItem;
begin
  NewmenuItem := TMenuItem.Create(B);
  NewmenuItem.Name := 'NewB';
  Edit.Add(NewmenuItem);
end;它报错：“Menu Insert Twice” 菜单被插入两次。
如果我要实现应该怎么办啊，　　　明白意思了的高手们，给点建议啊

Answer 1

//delphi2007, winxp sp3 测试通过
var
  SubMenu: TMenuItem;
begin
  SubMenu := TMenuItem.Create(Self);
  SubMenu.Name :='NewB';
  SubMenu.Caption := 'NewB';
  SubMenu.OnClick := B1.OnClick;
  Edit1.Add(SubMenu);
end;