Анализ взаимной блокировки в окне потоков
Следовательно, если убрать вызов Rnd в строке 98 и заменить его фрагментом
mFork.GrabFork(Me)
mKnife.GrabKnife(Me)
взаимная блокировка исчезает!
Следовательно, если убрать вызов Rnd в строке 98 и заменить его фрагментом
mFork.GrabFork(Me)
mKnife.GrabKnife(Me)
взаимная блокировка исчезает!