Висение в памяти

[xTANATOSx]

Моя програма висит в памяти спомощу бесконечного цикла и каждих 7 секунд запускает на виполнения VBS файл,но при виключениї комп'ютора Windows видает "Неудаетса закрить Project1 "и кнопку "Завершить процес".
Если какойто другой способ шоб програма в памяти висела?

[Showy]

Пробовал сувать в цикл?
Application.ProcessMessages;
if Application.Terminated then break;