Угу... есть такая трабла на Делфи
обычно спасаюсь глобальной переменной crit.. в кажом потоке:
if crit then sleep(10);
crit:=true;
// действия с глоб массивом
crit:=false;