Фокус на компоненте

Как в C++ Builder (или Delphi) узнать на каком компоненте находится в данный момент фокус?

Пока на собственное сообщение не было ответов, его можно удалить.

Заголовок: