只给三次验证机会的登录窗口验证代码为什么错？

Question

i:integer;
name:string;
password:string;
'只给三次验证机会
for i:=1 to 3 do
name:=form1.edit1.text;
password:=form1.edit1.text;
if name<>'sa' and password<>'nmdata' then
begin
showmessage('error');
form1.edit1.setfocus;
end;
continue;
form2.show
end;

Answer 1

i:integer;
r:boolean;/////////////////////
name:string;
password:string;
'只给三次验证机会
r:= false
for i:=1 to 3 do
name:=form1.edit1.text;
password:=form1.edit1.text;
if name='sa' and password='nmdata' then
begin 
r:= true;
break;
end;
else
begin
showmessage('error');
form1.edit1.setfocus;
end;
 if r then 
    form2.show
  else
    showmessage('3次输入错误！')
end;