Паралельное запускание 2-ух потоков, Потоки!!! Опции

[metamfetamin]

Люди добрые помогите разобратся!!!!!
Короче есть готовый листинг, писать ничего ненадо, нужно части с етого листинга "позасовывать" в кнопки меню Form.

Сам процес называется так:
При запуске программы кнопкой "Пуск", одновременно паралельно с задачей запускаются два потока Tthread1 и TThread2, которые пытаются установить "бегунок" в свою позицию (1-в позицию 10, 2-й в позицию 90).
У потоков можно менять приоритеты, и в зависимости от приоритета предпочтение отдается либо одному, либо другому потоку. При завершение программы потоки уничтожаются.

Полный текст главного модуля формы ниже!!!!