Присвойте свойству Application.Icon другую иконку и вызовите функцию
InvalidateRect(Application.Handle, NIL, True);
, True
);
... для немедленной перерисовки.