如何动态创建菜单???(100分)

我希望从数据表中读取数据动态建立二级菜单项目,用c++bulider 怎么实现?

以下是我用Delphi写的：
var
MenuItem: TMenuItem;
//想要创建的菜单
begin
MenuItem := TMenuItem.Create(Self);
ParentMenu.Add(MenuItem);
//ParentMenu为想要把自己创建的菜单添加到某个菜单的菜单项
end;

var
mnuItem: TMenuItem;
....
//动态创建菜单项
mnuItem := TMenuItem.Create(nil);
mnuItem.Caption := DMMain.qryEQAModule.FieldByName('EQAName').AsString;
mnuItem.Name := 'EQAtmpMnu' +
DMMain.qryEQAModule.FieldByName('EQACode').AsString;
mnuItem.OnClick := OnEQAmnuOnClick;
//将菜单项增加到弹出菜单中
mnuMain.Items[0].Add(mnuItem);
--事件处理
//动态A菜单单击时的处理方法
procedure OnEQAmnuOnClick(Sender: TObject);

谢谢各位参于,虽然没有满意答案,还是先分配分数,今后继续讨论!