Приостановка\продолжение потока

[bulldog5293]

Есть функция которая вызывает паузу или продолжение потока при нажатие по кнопке:
procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
paused := not paused; //меняем значение на противоположное
if paused then
for i:=0 to kthreads do SuspendThread(tid[i])
else
for i:=0 to kthreads do ResumeThread(tid[i]);
end;
end;
Но как прописать что бы пауза срабатывала в потоке, а продолжение при нажатии кнопки?

[Пепел Феникса]

всмысле пауза в потоке?
чтоб поток сам себя остановил или что?

[bulldog5293]

Да просто есть действие на которое должен ответить пользователь, хотел вначале поставить sleep, но проблемма в том что поток должен встать на заморозку и дождаться пока пользователь его сам разблокирует, тоесть при нажатии кнопки и продолжить своё выполнение

[bulldog5293]

Или всё же в таких ситлуациях применять синхронизацию, но как тогда держать приостановленным поток до нажатия кнопки

[SkrudjMakdak]

procedure TCountObj.Execute;
begin
...
Suspended:=true;
...
end;

[SkrudjMakdak]

или Suspend;

[GunSmoker]

Сообщение от bulldog5293

Или всё же в таких ситлуациях применять синхронизацию, но как тогда держать приостановленным поток до нажатия кнопки

Лучше применять синхронизацию.