1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

type

  HMSRec = record
    Hours: byte;
    Minutes: byte;
    Seconds: byte;
    NotUsed: byte;

  end;

procedure TForm1.Button1Click(Sender: TObject);

var
  TheLength: LongInt;
begin

  { Zeitformat festlegen, tfHMS wird von manchen Geräten nicht unterstützt }

  MediaPlayer1.TimeFormat := tfHMS;
  { Länge des geladenen Mediums speichern }
  TheLength := MediaPlayer1.Length;
  with HMSRec(TheLength) do { TheLength in HMSRec-Record umwandeln }
  begin
    Label1.Caption := IntToStr(Hours); { Stunden in Label1 anzeigen }
    Label2.Caption := IntToStr(Minutes); { Minuten in Label2 anzeigen }
    Label3.Caption := IntToStr(Seconds); { Sekunden in Label3 anzeigen }
  end;
end;