begin
BitBtn_Login.Tag:=BitBtn_Login.Tag+1;
if(Edit_User.Text<>'aa') or (Edit_PW.Text<>'aa') then
if BitBtn_Login.Tag=3 then
begin
showmessage('错误超过3次,拒绝登入');
modalresult:=mrcancel;
end.................................................不加分号
else
begin
showmessage('用户名或密码错误,请重新登入!');
Edit_User.Text:='';
Edit_Pw.Text:='';
Edit_User.SetFocus;
end.................................................不加分号
else
modalresult:=mrok;
end;
转载于:https://www.cnblogs.com/skysunmoon/archive/2009/04/04/1429536.html