Testprog zum feststellen wann ein Musikstück im TMediaPlayer zu Ende ist

[dstein]

Testprog zum feststellen wann ein Musikstück im TMediaPlayer zu Ende ist.
Hierfür habe ich ein kleines Prog geschrieben, eigendlich recht simpel.
Ich frage über einen TTimer die MediaPlayer1.Position ab und wenn diese >= MediaPlayer1.Length ist
wird der etwas gemacht.. Doch hier quitscht es; die Bedingung ist erfüllt und springt in den
Proc-Teil hier sollte auch der TTimer.Enabled := False; sein. Doch scheint der weiterzulaufen und immer wieder
in dem Procteil landet so das eine Endlosschleife entsteht.
Mir gehen die Optionen aus was hier falsch läuft.
Hoffentlich kann einer von euch mich in die richtige Richtung schubsen.
Oder haut eine bessere Idee wie ich feststelle wann das Musikstück im TMediaPlayer zu Ende ist.


## Auszug... gesamter Code in der ANlage

procedure TfrmMain.TimerNotifyTimer(Sender: TObject);
const
EndTolerance = 1000; // 1 Sekunde Toleranz
begin
lbl_Pos.Caption := IntToStr(MediaPlayer1.Position);

if MediaPlayer1.Position >= (MediaPlayer1.Length-EndTolerance) then
begin
MediaPlayer1.Stop;
ShowMessage('Das Musikstück ist zu Ende.');
MediaPlayer1.Notify := False;

// Timer explizit freigeben und deaktivieren
TimerNotify.Enabled := False;
end
else
begin
MediaPlayer1.Notify := True;
end;
end;