求一递归创建菜单的算法

Question

数据库结构
MenuID,MenuParent,FormID
菜单id  父id        模块名称要求底稿创建菜单树，用ttreeview控件，是多层次，不是2层的。

Answer 1

数据库结构 
MenuID,MenuParent,FormID 
菜单id  父id        模块名称 要求递归创建菜单树，用ttreeview控件，是多层次，不是2层的

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:Integer;
begin
  i:=self.TreeView1.Items.Count;
  for j:=0 to i-1 do
  begin
    if self.TreeView1.Items.Item[j].Parent=nil then
      self.createmenu(self.MainMenu1.Items,self.TreeView1.Items.Item[j]);
  end;
end;procedure TForm1.createmenu(mainitem: TMenuItem; tr: TTreeNode);
var
  s:string;
  newitem:TMenuItem;
  i,j:Integer;
begin
  s:=tr.Text;
  newitem:=TMenuItem.Create(mainitem);
  newitem.Caption:=s;
  mainitem.Add(newitem);
  i:=tr.Count;
  if i=0 then
    Exit;
  for j:=0 to i-1 do
    self.createmenu(newitem,tr.Item[j]);
end;