Отображение подсказок

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

Я добавил объект TApplicationEvents и установил для события OnShowHint значение

procedure TImportFrm.ApplicationEvents1ShowHint(var HintStr: string;
  var CanShow: Boolean; var HintInfo: THintInfo);
begin
  HelpLbl.Caption := HintStr;
end;

Однако кажется, что событие ShowHint срабатывает только при движении мыши. Есть ли способ активировать код подсказки, когда компоненты получают фокус, без необходимости реализовывать событие OnEnter для каждого отдельного компонента в форме?