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
----------------------------------------------