使用delphi制作简单的用户只能输入三次密码,若三次均错误则退出