Пауза/продолжить поток TThread одной кнопкой

[Человек_Борща]

Привет всем!
Как сделать так чтобы одной кнопкой можно было продолжать, приостанавливать работу потока?

Моя догадка такова:
У меня есть поток TThread имя UpdThr.

Procedure SomeObjectClick;
var
  UpdThr:TSomeThread;
begin
If not (UpdThr = nil) then
begin
case UpdThr.Suspended of
True: UpdThread.suspend;
False: UpdThr.Resume;
end;

так возможно приостанавливать или продолжать работу потока TSomeThread используя процедуру SomeObjectClick в обработчике одной кнопки "Пауза/продолжить"?

[TwiX]

UpdThr должен быть глобальной переменной. Т.е. где-то создали его
UpdThr:=TThread.Create;
А потом в кнопке:

Procedure SomeObjectClick;
If not (UpdThr = nil) then
begin
   case UpdThr.Suspended of
      True: UpdThread.suspend;
      False: UpdThr.Resume;
end;

[Человек_Борща]

Значит я думал в верном направлении! Спасибо за подсказку! и +

Вопрос решён!

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

так проще

If not (UpdThr = nil) then UpdThr.Suspended:=not UpdThr.Suspended;

свойство само разберется