delphi密码验证问题，请给出正确程序代码

Label1.caption:=’密码’,edit1.text:=’’; edit2.text:=’’; button1:=’确定’;当密码输入正确 （假定edit1.text中正确密码是123abc） ，单击【确定】按钮，edit2.text显示“欢迎使用本系统” ；如果输入的密码错误，单击【确定】按钮，edit2.text显示“密码错，请注意大小写” ；如果连续三次输入错误密码，edit2.text显示红色文本“对不起，你无权使用” ，并且密码输入框和命令按钮不可用。

答案：if exit1.text='123abc' then 
  edit1.tag=0
else
  edit1.tag:=edit1.tag+1;
case edit1.tag of
0:edit2.text:='欢迎使用本系统';
3:edit2.text:='对不起，你无权使用';
else edit2.text:='密码错，请注意大小写';
end

上一个：delphi中在哪个地方定义type
下一个：delphi的正则表达式子串替换