Вывод продолжительности трека

[KatCH]

Здраствуйте. Делаю для себе простенький проигрыватель.
Запнулся на выводе времени продолжительности трека. Вот то, что я пробывал, походу ет ерунда, ибо выводит нереальные числа

procedure TForm1.Timer2Timer(Sender: TObject);
begin
sLabel2.Caption:=IntToStr(MediaPlayer1.Length);
end;

Может быть нужно использовать свойство TrackLength ? Если да - то пожалуста опишите ето кодом. Заранее спасибо.

[bitSoft]

http://www.delphisources.ru/forum/showthread.php?t=5829

procedure TForm1.Timer1Timer(Sender: TObject);
Var s : String;
begin
   sTrackBar1.max:=MediaPlayer1.Length;
   sTrackBar1.Position:=MediaPlayer1.position;
//изменить счетчик времени
 if sec < 59
  then Inc(sec)
 else
  begin
   sec := 0;
   Inc(min);
  end;

//вывести время воспроизведения
 Label2.Caption := IntToStr(min) + ':';
 if sec < 10 then
  Label2.Caption := Label2.Caption + '0' + IntToStr(sec)
 else
Label2.Caption := Label2.Caption + IntToStr(sec);


//если воспроизведение текущей композиции не завершено
 if MediaPlayer1.Position < MediaPlayer1.Length
  then Exit;

//воспроизведение текущей композиции закончено
 Timer1.Enabled := False;
 MediaPlayer1.Stop;

 if ListBox1.ItemIndex < ListBox1.Count - 1 then
  begin
   ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
   Play;
  end;

 if (ListBox1.ItemIndex = ListBox1.Count - 1) and sCheckBox1.Checked = True then
  begin
   ListBox1.ItemIndex := 0;
   Play;
  end;
  begin
end;
end;