iTesla, никакого намёка, картинка подходит для компонента в качестве иконки
Присоединяюсь к предыдущему оратору: молодец, видно, что Excel-евские макросы не прошли даром (мне переход с VB на Pascal с бесконечными ошибками проходил, забывал точку то с запятой ставить, то end )