Как мне остановить поток, прежде чем он закончится?

У меня есть поток с именем TMyThread, и я переопределил процедуру Execute следующим образом:

 procedure TMyThread.Execute;
 Begin
     repeat
     //Some Work 
     Sleep(5000);
     //Some Work 2;
     Sleep(5000); 
     until FActive=False
 End;

В основной форме у меня есть кнопка под названием 'Уничтожь мою тему », Я хочу уничтожить свой поток, но проблема в том, что мой поток будет уничтожен, только если он закончит свою работу. Я хочу уничтожить мою нить, даже если она еще не закончила свою работу. Как мне это сделать?

Ответы на вопрос(3)

Ваш ответ на вопрос