Ребята помогите разобратса с функцеей.

   1. function FormatTime(Time: Integer): string;  
   2. const  
   3.   sec  = 1000;  
   4.   min  = 60 * sec;  
   5.   hour = 60 * min;  
   6. var  
   7.   h, m, s : Integer;  
   8. begin  
   9.   h := Time div hour;  
  10.   m := (Time div min) mod 60;  
  11.   s := (Time div sec) mod 60;  
  12.   if Time < hour then  
  13.     Result := Format('%d:%.2d', [m, s])  
  14.   else  
  15.     Result := Format('%d:%.2d:%.2d', [h, m, s]);  
  16. end;  

Если досолоно то насколько я понимаю оно:
Час:= Время делим на 60 (а откуда мы с етой функцыи взяли время? Нигде оно тут непрописано.... да и в варе юнита тоже.... ето что зарезервированая?)
Также и с минутами вроде. Час делим на минуты а потом с етого берьом мод... мод насколько я помню ето...тьфу уже забыл
Дальше если время менше часа значит выводим ето в минутах и секундах. А если менше значит в часах, мин и с. ('%d:%.2d:%.2d', [h, m, s]) прокоментируйте плиз как оно ето выводит? что такое %d:%.2d:%.2d ето зарезервированая функция?
И интересно как после етого я могу ссылатса мол
label1.Caption:=FormatTime(Position)+'/'+ FormatTime(Lenght) ???
Ведь в етой функцыи неговоритса про Позицыю и продолжытельность. Чтото я тут ничего непонимаю разкажыте плиз кто может

1) Зачем дублировать топики?
2) При чем тут MediaPlayer?