delphi做的权限系统,请大家帮忙看看错在哪,我无法实现其功能