спасибо буду делать, интересно.

п.с. про коллекцию как-то не подумал.

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

Хочется универсальности.
Поле на форме большое, а видно его не все вот решил воткнуть его содержимое в "Текст строки состояния" - StatusBarText по получению фокуса. Юзеры довольны.
Но - совершенсту нет предела возникла мысля а можно создать единую функцию которая содержимое поля имеющего фокус выгоняет в StatusBarText.
пояню можно на каждое поле на полчение фокуса повесить StatusBarText=me.Поле, но как один раз сделать - текущая запись не подходит она не реагирует на потерю фокуса полями, мо же шо другое есть??

таймер не предлагать мы не ищем легких путей