Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := IntToStr(Mediaplayer1.Position);
end;
Dabei das Timer-Intervall auf deutlich unter 1 Sekunde stellen, sonst wirkt das hochzählen oft ungleichmäßig
Und ggf. die Anzahl der Sekunden von "Mediaplayer1.Position" in einen "schönen" Zeitstring umbauen. Also mit Mod 60 und Div 60 oder so.
