Fórum ajuda para limitar as tentativas de login #532004

bom dia

preciso de ajuda para limitar as tentativas de login pelo usuário

procedure TFrmLogin.BtnEntrarClick(Sender: TObject);

begin
FBQuery_Login.Open;
if ((FBQuery_Login.Locate('login', edtUsuario.Text, [])) and (FBQuery_Login.Locate('senha', edtSenha.Text, []))) then
begin
GuardaLogin:= EdtUsuario.Text;
FDQuery_Logado.Insert;
FDQuery_LogadoCOD_USUARIO.Value:= FBQuery_LoginCODIGO.Value;
FDQuery_LogadoSUCESSO.Value:= 'SIM';
FDQuery_Logado.Post;
FBQuery_Login.Close();
ModalResult:= mrOk;
end

else
if (edtUsuario.Text = '') or (edtSenha.Text= '') then // limitar as tentativas de tentar entrar sem colocar o usuário ou senha
begin
ShowMessage('Campo de usuário ou senha vazio !');
edtUsuario.SetFocus;
end

else // limitar as tentativas de entrar com senha ou usuário inválidos
begin
ShowMessage('Usuario ou senha inválido!');
GuardaLogin:= EdtUsuario.Text;
FDQuery_Logado.Insert;
FDQuery_LogadoSUCESSO.Value:= 'NÃO';
FDQuery_LogadoCOD_USUARIO.Value:= FBQuery_LoginCODIGO.Value;
FDQuery_Logado.Post;
edtSenha.Clear;
end;

end;




o código já roda perfeito, o detalhe é que da forma como está as tentativas de campos vazios e valores inválidos para (senha e usuário) não limitam o usuário que está digitando

eu quero que ao tentar 3 vezes para campos vazios e 3 vezes para valores inválidos seja exibida uma mensagem que o programa será encerrado e fim