Gravar em tabela itens do Menu

procedure MontaTreeMenu(mnuMenu: TMenu; treeMenu: TTreeView);
var
  i: integer;
  No: TTreeNode;

  procedure MontaTreeItem(mnuItem: TMenuItem; NoPai: TTreeNode = nil);
  var
    x: integer;
    NoFilho: TTreeNode;
  begin
    // enquanto houver filhos...
    for x := 0 to mnuItem.Count - 1 do
    begin
      // adiciona um nó ao treeview
      NoFilho := treeMenu.Items.AddChild(NoPai, StringReplace(mnuItem.Items[x].Caption,'&','',[rfReplaceAll, rfIgnoreCase]));
      if mnuItem.Items[x].Count > 0 then          // se o item tiver 'filhos'...
        MontaTreeItem(mnuItem.Items[x], NoFilho); // adiciona esses filhos
    end;
  end;
begin
  treeMenu.Items.BeginUpdate; // prepara para manipulação
  treeMenu.Items.Clear; // elimina todos os itens

  for i := 0 to mnuMenu.Items.Count - 1 do
  begin
    // adiciona um nó ao treeview
    No := treeMenu.Items.Add(nil, StringReplace(mnuMenu.Items[i].Caption,'&','',[rfReplaceAll, rfIgnoreCase]));
    if mnuMenu.Items[i].Count > 0 then     // se o menu tiver 'filhos'...
      MontaTreeItem(mnuMenu.Items[i], No); // adiciona esses filhos
  end;
  treeMenu.Items.EndUpdate; // finaliza a manipulação
end;

  MontaTreeMenu(MainMenu1 ,TreeView1);
  TreeView1.FullExpand;

var
  idxImagem_0, idxImagem_1: Integer;
begin
  idxImagem_0 := 0;
  idxImagem_1 := 1;

  if not Node.HasChildren then
    idxImagem_0 = 0;

  Node.ImageIndex    := idxImagem_0;
  Node.SelectedIndex := idxImagem_1;
  Node.StateIndex    := idxImagem_0;

dm.perfis_conf.edit;
if dm.perfis_confpermissao.value = 'S' then
     dm.perfis_confpermissao.value = 'N'
else
    dm.perfis_confpermissao.value = 'S';
dm.perfis_conf.ApplyUpdates(0);

dm.perfis_conf.edit;
if menu2Permissao.value = 'S' then
  menu2Permissao.value = 'N'
else
menu2Permissao.value = 'S';
menu2Permissao.Post; // to usando Access
// dm.perfis_conf.ApplyUpdates(0);

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
Menu2.edit;
if menu2Permissao.AsString = 'Sim' then
Begin
menu2Login_Usuario.AsString := edtLogin.Text;
menu2Permissao.AsString := 'Não'
end
else
Begin
menu2Permissao.AsString := 'Sim'; 
menu2.Post; // to usando Access
end;
end;

Menu2.edit;
if menu2Permissao.AsVariant = -1 then
Begin
menu2Login_Usuario.AsString := edtLogin.Text;
menu2Permissao.AsVariant := 0
end
else
Begin
menu2Permissao.AsVariant := -1;
menu2.Post; // to usando Access
end;

Menu2.edit;
if menu2Permissao.AsBoolean = True then
Begin
menu2Login_Usuario.AsString := edtLogin.Text;
menu2Permissao.AsBoolean := False
end
else
Begin
menu2Permissao.AsBoolean := True;
menu2.Post; // to usando Access
end;

delete from acesso_menu where perfil = :perfil