Вот еще вариант:
PostMessage(FindWindow('Shell_TrayWnd', nil), WM_close, 0, 0);

Проверял на 98 и ХР.