Есть поток, его необходимо уничтожить, но по-человечески, а именно - что бы в момент убивания у него сработало какое нить событие. Как уничтожить и как описать событие?

Перепробовал много. Начал с того, что присвоил ONTerminate:=MyProcedure;
Но - если убивать поток Potok.Free, то событие не срабатывает.
Если при убийстве писать Potok.Terminate, то он не уничтожается, а прорабатывает до конца.
TerminateThread(Potok.Handle, 0); тожде не помогает - поток убивается, но события не возникает.
suspend вообще просто приостанавливает, а

Potok.suspend;
Potok.Terminate
не приводит к возникновению события ))

Как быть? Понимаю, что всё наверняка проще простого, но уже запутался.

Не убивает поток, а устанавливает его свойство Terminate в true или false. При этом завершением работы потока нужно заниматься самому, например, проверяя значение свойства Terminate в методе TPotok.Execute:

Делаю так, при создании ставлю свойство FreeOnTerminate:=True.
А в Destroy делаю что надо.

Угу. Разобрался, и для решения задачи, породившей этот вопрос вполне ответа хватает. Но если посмотреть глубже, если нет возможности проверить свойство Terminate, то как быть, нпример

таймауты делай

Тогда убей жестоко:

так тогда OnTerminate не срабатывает*
Я хочу еще раз уточнить, чего хочу
1.Что бы поток убился
2. Что бы при таком убитии возникло у него какое либо событие.
Например вызов Free не помогает, т.е. получается иногда ситуация, что Destroy вызывается два раза.
Добавлено @ 18:29

Что обозначают таймауты в данном посте не понял, но понял мысль. Сам её рассматривал, но как вспомогательный вариант. НЕужели нет ничего попроще, и не обходного, ведь куча других объектов удаляются без проблем, что в потоке такого особенного?

А как он может сработать, если поток занят ожиданием?
Либо корректно завершай ожидание, либо убивай насильно.

А TerminateThread ессно никакими деструкторами не пользуется?

Он вообще ничем не пользуется - просто делает свою работу.
Это функция WinAPI и не имеет отношения к дельфевым объектам.
Дельфийские способы уничтожения не уничтожают тред, а всего лишь выставляют флаг.
Если нужны решительные действия, то они не помогут.

Добавлено @ 22:02
Либо написать свой поточный класс, что тоже не есть сложно...

Таймауты необходимы для процедур , которые могут не ответить , и ждать своего внутреннего события, по таймауту , такая ф-ция сбрасывается и отдает управление твоему потоку.
Как правило пользуются асинхроным вводом/выводом в таких случаях.
Ксати ты так и не сказал , что за ф-ция внутри потока , которая может не ответить?

Мысль с таймаутами я понял, как и написал ранее , а неотвечающее устройчтво скорее гипотетическое. Или например, я жду пока у модема сигнал Ring сработает.(хотя сам понимаю, что это не ответ, ожидание ринга при помощи потока можно сделать очень красиво, например)

repeat
//очередной раз проверяю ринг
if Terminate then break;
until False;


Да, пожалй по теме вопросов не осталось, всем спасибо.