ник: Lukas
В общем модуле две функции.
Первая принимает параметр - ссылку на форму, пробегает по коллекции контролов формы,
присваивает значение свойству "Получение фокуса" - вызов второй функции.
Вторая функция присваивает StatusBarText. значение активного контрола.
В каждой форме, при открытии, вызов первой функции с параметром (Me).
Фсе.