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

[Boss_kit]

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

[Boss_kit]

Извеняюсь....
Задача состоит в том, что я воспроизвожу свой музыкалиный файл, при этом мне извесна длина файла.
Мне нужно вывести "строку загрузки"(или как-то так) пока играет музыка.
Если длина файла больше 80 тогда вывод должен задерживаться на определенное время, усли меньше 80 тогда выводим определенное кол-во символов"|"...
В общем я тут написал....

IF size  > 80 then Size2 := size / 80                      
                   else Size2 := 80 / size;
for i := 1 to size do  
Begin          
        IF size < 80 then     
             for j := 1 to size2  do write('|')    
             else 
             begin                 
                    for k := 1 to size2 - 1 do                           
                    inc(n);                 
                    write('|');           
             end;   
End;