Грабли с TThread...

[FataLL]

Есть некий поток, который сам себя Suspend'ит.

void __fastcall TMyThread::Execute()
{
  while( !Terminated )
  {
    // Некоторый процессинг
    Suspend();
  }
}

Возникла реальная трабла по его удалению. Допустим

__fastcall TMyThread::~TMyThread()
{
  Terminate();
}

не прокатывает, так как в этот момент поток может быть Suspended, и до проверки !Terminated дело просто не дойдёт. Казалось бы, тоже ничего сложного

__fastcall TMyThread::~TMyThread()
{
  Terminate();
  if( Suspended )
  {
    Resume();
  }
}

Однако, практика [навтыкал везде запись в лог-файл] показывает, что поток может сначала сказать, что он совсем не Suspended, т.е., условие в деструкторе не выполнится, а после этого тут же выполнит Suspend в методе Execute, программа закрывается, но продолжает висеть в процессах. Не гут. Уважаемая публика, какие будут предложения?