помогите добить программку

[HAMMAN]

type
HMSRec = record
Hours: byte;
Minutes: byte;
Seconds: byte;
NotUsed: byte-end;

procedure TForml.ButtonlClick(Sender: TObject);
var
TheLength: Longlnt;
begin
MediaPlayer1.TimeFormat := tfHMS;
TheLength := MediaPlayer1.Length;
with HMSRec(TheLength) do
begin
Label1.Caption:=IntToStr(Hours);
Label2.Caption:=IntToStr(Minutes);
Label3.Caption:=IntToStr(Seconds);
end;
end;

Вот в общем код показывающий время!Что-то я его прописываю, а у меня всё равно время какое-то не то!мне бы желательно чтобы он точно показывал текущее время!Задержку пробовал ставить и нифига ...

[Alex21]

А вы таймером его, таймером...

TheLength := MediaPlayer1.Length;

Не совсем понял, вам надо текущую позицию воспроизведения?зачем же вы берете длину???

ThePosition := MediaPlayer1.Position; // текущая позиция
TheLength := MediaPlayer1.Length; // общая длина

P.S.: такой вариант TimeNow:=MediaPlayer1.Position div 1000 // = секунды