Detecter la fin de la lecture dans un Mediaplayer

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Not if y := True;
MediaPlayer1.OnNot if y := Not if yProc;
end;

procedure TForm1.Not if yProc(Sender: TObject);
begin
With Sender As TMediaPlayer do begin
Case Mode of
mpStopped: {do something here};
end;
Not if y := True;
end;
end;