Как запустить прогресс-бары Delphi7?

Есть 5 прогресс-баров: ProgressBar1-ProgressBar5.
Их нужно запустить ПООЧЕРЕДНО от 0 до 100000.
Т. е. : Прогрессбар1 плавно принимает позиции от 0 до 100000
ПОСЛЕ НЕГО второй и т. д.
У меня получается запустить их, но заполняются они одновременно.
Заполняю с помощью while...