Присвойте свойству Application.Icon другую иконку и вызовите функцию
... для немедленной перерисовки.
