Есть ли в Delphi событие, которое срабатывает при изменении ActiveControl?

Я хотел бы запустить небольшую процедуру, когда меняется ActiveControl . Как я могу это сделать? Я думал о наличии таймера, который проверяет активный элемент управления через определенные промежутки времени и запускает мою процедуру, когда она меняется, но есть ли более элегантное решение?