Здравствуйте, <Аноним>:
поток должен быть готов к завершению. для этого в поток должен время от времени проверять свойство Terminated. Если оно истинно, то он должен по быстрому завершить свои дела и выйти с процедуры Execute с помощью exit. В основной программе просто пишем поток.terminate;
Все другие способы прибить поток до добра не доведут.