delphi如何控制登陸失敗的次數

要求：當輸入的用戶名或密碼錯誤時，提示“用戶名或密碼錯誤，你還剩3次登陸機會！”  再錯就提示“用戶名或密碼錯誤，你還剩2次登陸機會！”......最後當3次輸入的密碼都不正確時退出系統！

 if trim(MMEdit.Text) <> trim(pubQry.FIEldByName('uPas').AsString) then
        begin
          Logintimes :=Logintimes + 1;
          if Logintimes < 3 then
          begin
          MessageBox(handle,pchar('錯誤。密碼第'+IntToStr(Logintimes)+'次錯誤,請重新輸入'),'密碼錯誤',MB_OK OR MB_ICONERROR);
          MMEdit.Text:='';
          MMEdit.SetFocus;
          end
          else
          begin
          MessageBox(handle,'密碼三次錯誤。系統將會關閉','密碼錯誤', MB_ICONERROR);
          Application.Terminate;
          end;
        end