进入系统的登录程序怎么答错一次就退出（设计三次的）(50分)

试一下这个：(这个我在D4,5都通过的)

implementation
Uses
...
var
srcs:Integer=0;/
procedure Tloginin.BitBtn1Click(Sender: TObject);
begin
srcs:=srcs+1;
if srcs<=3 then
begin
if edit1.text=czymm then
LoginForm.modalresult:=mrok

else
if srcs<3 then
begin
messagedlg('密码不正确，请重新输入！',mtinformation,[mbyes],0);
edit1.Text:='';
edit1.SetFocus;
exit
end
else
begin
messagedlg('密码不正确,将关闭本系统！',mtinformation,[mbyes],0);
Close;
end;
end;

谢谢大家的指教,中间因故耽搁了一段时间,非常抱歉,现在这个问题已解决.
程序方面没有问题,出错的是我用于输入密码后的触认按钮是Bitbtn,不是botton,
并且我给Bitbtn定义类型为ok 和 cencil,这样不管密码检查结果怎样,都退出了
登录程序.现在我如果把Bitbtn的类型改为custom或使用Botton按钮,则没有问题.
这真是一个让人难以发现的绊子.回想起大家的看法,am0,rwolf,jetideas都指正确
的考虑方向,pipi说的更直接,只是当时慌乱之中,只考虑程序问题,忽略了按钮的问题
以致拖了这么长的时间,马上给分,可惜当时悬红太少,下次一定改正.

多人接受答案了。