Стр. 328 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
328
pr:=round(ProgressBar1.Position*100 / ProgressBar1.Max);
Label1.Caption:=IntToStr(pr)+'%';
GetHMS(MediaPlayer1.Position,hh,mm,ss);
Label2.Caption:=GetHHMMSS(hh,mm,ss)+#32+'\'+#32+
GetHHMMSS(h,m,s);
if not pause then
MediaPlayer1.Play;
end;
end;
end.