Login-Delphi

[[enecumene]]

Bueno ya resolvi el ultimo problema que era muy sencillo lo puse asi:

Código Delphi [-]
Begin
           Cuenta := Cuenta + 1;
           EUsuario.Text := '';
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           EClave.Text := '';
           ADLogin.Active := False;
           If Cuenta = 3 then Close;
         end;

de Nuevo gracias caral por tu tiempo, te lo agradezco, que dios te bendiga. ah y otra cosita, donde defino los privilegios? en el login o en el main?.

Saludos...