if Treeview1.Selected.text:='' then //这条语句错到那里呀!!
               begin
                  showmessage('请选择用户!');
                  exit;
               end
             else
               begin
                  ExecSQL;
                  showmessage('权限设置成功!');
               end;
         end;