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