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

InvalidateRect(Application.Handle, NIL, True); 

... для немедленной перерисовки.