Controle de permissões via TMainMenu

procedure TForm1.Bloqueia(Menu: TMainMenu);
var
  x: Integer;

  procedure BloqueiaItensMenu(Item: TMenuItem);
  var
    iItem: integer;
  begin
    for iItem := 0 to Item.Count-1 do
    begin
      Item[iItem].Visible := not DataBase.IBUsers.Locate(´Secao´, Item[iItem].Caption, [loCaseInsensitive]);

      // se um item estiver invisível, nem analiso os sub-itens
      if Item[iItem].Visible and (Item[iItem].Count > 0) then
        BloqueiaItensMenu(Item[iItem])
    end;
  end;
begin
  with DataBase.IBUsers do
  begin
    Close;
    SQL.Clear;
    SQL.Add(´select * from acessos where id_user=´ + QuotedStr(LOGIN_ID_USER));
    Open;

    // para melhorar a performance, não use (RecordCount = 0)
    // a menos que você precise saber o número exato de registros
    if not IsEmpty then
      for X := 0 to (Menu.Items.Count - 1) do
      begin
        Menu.Items[X].Visible := not Locate(´Secao´, Menu.Items[X].Caption, [loCaseInsensitive]);

        // se um item estiver invisível, nem analiso os sub-itens
        if Menu.Items[X].Visible and (Menu.Items[X].Count > 0) then
          BloqueiaItensMenu(Menu.Items[X]);
      end;
  end;
end;