D>>Так у меня FeeOnTerminate = true, так что когда он умрет, обращение к Modem->Handle должно сгенерировать исключение. Или я ошибаюсь?
AVS>Да, а если и не будет то будет еще хуже

AVS>А зачем тебе FreeOnTerminate?

Если все это нужно, чтобы пользователь мог запустить только один экземпляр потока одновременно, почему не сделать как предлагалось: поставить Button1->Enable = false в начале Execute потока, а в конце OnTerminate вставить Button1->Enable = true