关于delphi数据库的密码验证问题，请有这方面经验的朋友进来帮帮忙？

[liooon]

我在做数据库的用户添加时，在添加窗体内，当按‘添加’按钮时，执行下面的代码：
repeat
begin
if edit3.text<>'' then
if edit3.text=edit4.Text then
break
else
begin
messagedlg('输入密码不一致，请重新输入！',mtinformation,[mbok],0);
edit3.text:='';
edit4.Text:='';
edit3.SetFocus;
end
else
begin
messagedlg('请输入密码！',mtinformation,[mbok],0); //这里当我输入密码不一致或
edit3.SetFocus; 为空时就会进入死循环了//
end;
end;
until edit3.text<>'' ;
但老是进入死循环，在delphi中是否有暂停的方法等待输入后验证，而不至于进入死循环？

[Kevin_Lmx]

if edit3.text<>'' then
if edit3.text=edit4.Text then
//成功
else begin
messagedlg('输入密码不一致，请重新输入！',mtinformation,[mbok],0);
edit3.text:='';
edit4.Text:='';
edit3.SetFocus;
end
else begin
messagedlg('请输入密码！',mtinformation,[mbok],0);
edit3.SetFocus;
end;
{这样不就行了？要循环做什么？}

[zzlazio]

为什么要用REPEAT...

[liooon]

嗯。。。。。。。。。
我也搞不清楚，可能是今天做了太长时间了，搞得头头晕沉沉，真是不好意思，发这种贴^-^...,谢谢了！