How to kill a thread in delphi?

In delphi, a method in TThread is terminate. It seems a subthread can not kill another thread by calling terminate or free. For example A (основная форма), B (блок потока), C ​​(другая форма).

B отправляет данные в основную форму, а C (вызывая syncronize), мы пытались завершить B внутри C, пока B выполняется, вызывая B.terminate. Но этот метод не работает, и B продолжает работать, пока не закончится методом execute.

Пожалуйста, помогите. Заранее благодарю.