Gravar em banco itens do MainMenu

procedure TForm2.mtdLoopingRecursivo(aoMenuItem: TMenuItem);var  i: Integer;begin  for i := 0 to aoMenuItem.Count -1 do  begin    aoMenuItem.Items[i].Checked := not aoMenuItem.Items[i].Checked;    // -> No lugar da linha acima, vc faz a rotina de acesso ao BD    mtdLoopingRecursivo(aoMenuItem.Items[i]);  end;end;

procedure TForm2.mtdMenuItemToTreeView(aoMenuItem: TMenuItem; aoNode : TTreeNode);var  I: Integer;begin  for I := 0 to aoMenuItem.Count -1 do  begin    mtdMenuItemToTreeView(aoMenuItem.Items[i], TreeView1.Items.AddChild(aoNode, AnsiReplaceStr(aoMenuItem.Items[i].Caption, '&', EmptyStr)));  end;end;

procedure TForm2.btnArvoreClick(Sender: TObject);begin  TreeView1.Items.Clear;  mtdMenuItemToTreeView(MainMenu1.Items, nil);end;
procedure TForm2.btnLoopingClick(Sender: TObject);begin  mtdLoopingRecursivo(MainMenu1.Items);end;

DataSet.Open;for i := 0 to aoMenuItem.Count -1 dobegin  DataSet.Append;  DataSetNome.AsString := aoMenuItem.Items[i].Name;  DataSetCaption.AsString := aoMenuItem.Items[i].Caption;  // Se tiver mais campos, coloque aqui  DataSet.Post;  mtdLoopingRecursivo(aoMenuItem.Items[i]);end;DataSet.ApplyUpdates(0);

DataSetNOME_PAI.AsString := aoMenuItem.Name;

public
  vgoList : TStringList;

procedure TForm2.btnArvoreClick(Sender: TObject);
begin
  TreeView1.Items.Clear;
  if not Assigned(vgoList) then
    vgoList := TStringList.Create;
  vgoList.Clear;
  mtdMenuItemToTreeView(MainMenu1.Items, nil);
end;

procedure TfrmPrincipal.mtdMenuItemToTreeView(aoMenuItem: TMenuItem; aoNode : TTreeNode);
var
  I: Integer;
  vloNode : TTreeNode;
begin
  for I := 0 to aoMenuItem.Count -1 do
  begin
    vloNode := TreeView.Items.AddChild(aoNode, AnsiReplaceStr(aoMenuItem.Items[i].Caption, "&", EmptyStr));
    vgoList.AddObject(vloNode.Text, aoMenuItem[i]);
    mtdMenuItemToTreeView(aoMenuItem.Items[i], vloNode);
  end;
end;

procedure TfrmPrincipal.mtdTreeViewMenuItem(aoTreeView: TTreeView);
var
  I: Integer;
begin
  for I := 0 to aoTreeView.Items.Count - 1 do
  begin
    ShowMessage(TMenuItem(vgoList.Objects[vgoList.IndexOf(aoTreeView.Items[i].Text)]).Name);
    // "update table NomeTabela Set Acesso = Parametro where Nome = " + TMenuItem(vgoList.Objects[vgoList.IndexOf(aoTreeView.Items[i].Text)]).Name;
  end;
end;

procedure TfrmPrincipal.mtdTreeViewMenuItem(aoTreeView: TTreeView);
var
  I: Integer;
begin
  for I := 0 to aoTreeView.Items.Count - 1 do
  begin
    ShowMessage(TMenuItem(vgoList.Objects[i]).Name);
  end;
end;

form1.MenuMenu_NomePai.AsString := aoMenuItem.Items[i].Name;

form1.MenuMenu_NomePai.AsString := aoMenuItem.Name;

// Adicione no evento OnDblClick da TreeView
  if TTreeView(Sender).Items.Count > 0 then
  begin
   ShowMessage(TMenuItem(vgoList.Objects[TTreeView(Sender).Selected.AbsoluteIndex]).Name);
  end;