Я ещё усугублю. Если в форме есть субформы, то такой код должен быть "присоединён" к каждой форме, как главной, так и к подчинённым. Жутко неудобно, должен сказать, иметь (а главное, поддерживать!) одинаковые обработчики с длинными select-ами в нескольких формах... Проблема решается, но с помощью не совсем тривиального программирования, в частности, тут без объектов и классов не обойтись.

Да, когда-то у меня были тоже подпрограммы... Но лучшее - враг хорошего: я захотел избавиться от обработчиков события KeyDown в формах и от необходимости выставлять в них в True свойство KeyPreview вообще! И сверх того, для стандартных действий в форме типа Закрыть/Сохранить запись/Изменить запись/Новая запись и т. п. ни select-ов, ни кода не писать В общем, добивался того, чтобы один раз в событии Open формы создать некий служебный объект, вызвать его метод EnableDefaultCommands, и всё, готово! Нажатия нужных клавиш перехватываются в форме и любой её субформе, а если в главной форме есть кнопки с определёнными именами, то они вызывают те же стандартные действия. И получилось :)).

Задача стояла - "легким движением руки", помните?

Так вот, если хотим означенной легкости, то без предварительного хитроумного программирования - никак :))