再点击showmessage的ok按钮为什么没有返回登入窗口而是直接进入了主窗口?????

点击登入后提示'用户名或密码错误，请重新登录!'),再点击showmessage的ok按钮为什么没有返回登入窗口而是直接进入了主窗口?????

procedure TForm_Login.BitBtn_LoginClick(Sender: TObject);
begin
BitBtn_Login.Tag:=BitBtn_Login.Tag+1; //用Tag属性记录验证次数
if (Edit_User.Text <>'aa') or (Edit_PW.Text <>'aa') then //验证不成功
if BitBtn_Login.tag=3 then //判断错误次数
begin
showmessage('错误超过3次,拒绝登录!');
modalresult:=mrCancel; // 错误超过3次，模式返回值为mrCancel
end
else
begin //错误小于3次，提示重新登录
showmessage('用户名或密码错误，请重新登录!');
Edit_User.Text:='';
Edit_PW.Text:='';
Edit_User.SetFocus ;
end
else
modalresult:=mrOK; //成功登录，模式返回值为 mrOK
end;