Идёт загрузка страницы...
Одной строкой
Присвойте свойству Application.Icon другую иконку и вызовите функцию
... для немедленной перерисовки. [000392]