в вызове ServiceStart () службы Windows я создаю поток и запускаю его.
Thread1 = New TThread1 (false)
В процедуре Execute подпотока есть цикл, который выполняется вечно и выполняет то, что должен делать сервис.
Проблема в том, что когда я получаю сообщение об ошибке в этом потоке, я хочу завершить поток и остановить службу тоже.
Как заставить службу останавливаться, если запущенный поток останавливается (завершается с ошибкой).