Все правильно
, забыл про особенность одну реализации потоков, у меня запуск потоков происходит из одного потока, они встают в очередь потоков и могут перебивать друг друга, особенно если вызывать их друг за другом. Добавлять
Delay(100); и все
OK! Исправлю позже чтоб не было коллизий, если конечно развитие этой библиотеки интересно.
Вставить delay() и все заработает:
begin
threads_start(1);
delay(100); // <<< пауза основного потока, инициализация потока 1
threads_start(2);
threads_setpriority(1,threads_norm);
threads_setpriority(2,threads_norm);
delay(200000000);
end.