[Vayrus]

Посадить ПрогрессБар на таймер:

процедура Таймер1;
начало
ПрогрессБар1.Позиция := ВызовФункцииПолученияЗагрузкиЦП;
конец;