Вопрос про время

[KoBRaAndrey]

В общем, есть 3 потока (на моем двух ядерном компе), первые 2 потока суммарно грузят мой процессор на 100%, ихний приоритет Высокий.
Первые 2 потока должны остановиться через 60 секунд после старта.
В третьем потоке с приоритетом реального времени идет подсчет времени с начала работы, таким методом:

var
  ST, Fr, T: Int64;
begin
  TimeCount:=0;
  QueryPerformanceFrequency(Fr);
  QueryPerformanceCounter(ST);
  while True do begin
    Sleep(1000);
    QueryPerformanceCounter(T);
    TimeCount:=Floor((T-ST) / Fr);
  end;

Но как не странно, потоки освобождаются через 54 секунды.
В первых двух потоках такая проверка:

  
while TimeCount<TestTime do begin

[Аватар]

Не скажу из-за этого ли, но сам факт того, что в одном потоке пишем в TimeCount, в другом читаем и без всякой синхронизации наводит на размышления. Да и Sleep(5000) 5 секунд точности никогда не даст, не важно какой приоритет

[KoBRaAndrey]

5000 это было раньше, я уже исправил на 1000. По идеи, с 5000 должно было выходить более чем 60 секунд..но нет.
Переменные вроде можно изменять и читать без синхронизации, не так ли?

[Аватар]

Переменные вроде можно изменять и читать без синхронизации, не так ли?

Вообще-то нельзя

ADD

Зачем вообще третий поток не понял. Можно просто тики в первых двух потоках брать и выходить при необходимости. Будет вполне норм.результат

[KoBRaAndrey]

Как тогда работать синхронизировано с переменными? Приходит в голову только синхронизация процедуру с изменением глобальной переменной на локальную..

[саша40]

-TTimer.
-Не, не слышал.