Timerzeit ist nicht gleich Filmzeit

[Gausi]

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.