Timer para fechamento automático de um form em Delphi 7

[Aurélia 0]

Olá pessoal!

 

Queria implementar o fechamento automático de um form, no caso do form de login de um sistema, após três tentativas de acesso. Procurei em vários lugares, mas não encontrei nada.. =/

 

Seria como um timer regressivo, que contasse uns 5 segundos após a exibição do MessageDlg de tentativas esgotadas e encerrasse a aplicação, sem precisar de ação do usuário...

 

Alguém tem alguma idéia?

:)

[Roberto Fagundes 40]

Não precisa de timer, é simplesmente uma variável que armazena a quantidade de tentativa

no botão login você verifica se esta igual a 2 se for igual a 2 e ele errar o login você fecha o formulario...

[Aurélia 0]

Eu tenho uma variável que armazena as tentativas e ele está fazendo certo, só que na última das tentativas permitidas, eu mostro um alerta, que fecha o aplicativo quando o usuário clica em OK. O que eu queria era que ele encerrasse automaticamente, após determinado tempo de exibição desta mensagem, sem a necessidade de o usuário clicar no Ok.