[~TB~]

У меня в одном приложении примерно так работает. Проблем никаких не наблюдаю. Главное не забывать пинать поток когда нужно.

Код:

procedure TMySuperDuperThread.Execute;
begin
  while not Terminated do
    if not Suspended then
    begin
      if SomeProp then
        ApplySomeProcedure
      else
        Suspend;
    end;
end;