TTHread, Как перезапустить поток, без его уничтожения?

[Johnson]

К чему такие сложности?

Procedure TMyThread.Execute;
label ExitMyThread;
begin
	while (True) begin

		// Что-то делает
		if ({Произошло что-то, что должно начать исполнение заново, не дожидаясь завершения}) Continue;
		if ({Произошло что-то, что должно остановить поток}) break;
		Sleep(10000);//10sec ждать следующего раза
		// Либо
		Self.Suspend; // Ждать, когда кто-либо не разморозит
	end;
end;