Помогите сделать, Строка загрузки Опции

[Boss_kit]

Нудно сделать в текстовом режиме строку загрузки, выводя '|', пока играет музыка...
Пожалуйста помогите....

[Boss]

Я об этом думал, но вот в чем проблема:
1. Если длина строка меньше 80 тогда за один шаг рисуем нескалько |
2. Если наоборот мне нужно сделать задержку, равную по времени Write()

Вообще я написал выше, что у меня получилось, а красным выделил действие, которое в идеале по времени должно заменить процедуру Write('|')
Подскажите как сделать, но без объявления новых переменных...