怎样用字符串（如000111001）为系统分配权限？请看这部分不完全正确的代码，请更正

var
qxb:boolean;
qxs：string;
i:integer;
begin
qxs:=query.fiedbyname('qxs').asstring//把权限字符串读入qxs中
for i:=1 to length(qxs) do
   if qxs[i]='1' then  qxb:=true
      else qxb:=false;
menui.n1.enable:=qxb
menui.n2.enable:=qxb
^^^^^^//用0,1确定menu的子菜单（n1,n2...)是否可用