[dech]

Метод active() срабатывает при переходе с одной записи на другую, а также при открытии формы (что собственно является переходом на первую, либо последнюю запись). Как уже сказали выше, при передаче фокуса перекрывайте метод modified на контроле или на поле датасорса.