Для управления правами надо пользовать ADOX. Вот бессовестно выдраный с одного из форумов примерчик, который выводит всех пользователей всех групп.
Код:
Cat:=CreateOleObject('ADOX.Catalog');
Cat.ActiveConnection:=ADOConnection1.ConnectionObject;
for j:=0 to Cat.Users.Count - 1 do
if UpperCase(Cat.Users[j].Name) = UpperCase(iduser) then
for i:=0 to Cat.Users[j].Groups.Count - 1 do showmessage(showmessage(Cat.Users[j].Groups[i].name);