notiyu de mediaplayer (ya casi es media prayer)

[Jorghino reyes]

Hola amigos, tengo un pequeño desde hace varios dias que me trae vuelto loco. resulta que supuestamente con el mediaplayer en el evento on notify nos avisa de los cambios en ejecucion del reproductor. Pero hacendo una pequeña prueba en base a la ayuda de delphi, en el siguiente codigo, NO avisa cuando se detiene "sttoped" ( yo quiero saber el momento en que se acaba la cancion) de hecho vuelve a ponerse en 'playing'

en sus propiedades tengo activado el autoopen y el autoenabled pero no el el autorewind.

y la cancion viene predefinida en sus pripiedades.

manejo 2 botones unicamente uno para play y el otro para stop.

Alguien que me pueda ayudar se lo agradeciria mucho!

pd. de hecho si pones un cd normal se sigue con cada uno de los tracks.

Código Delphi [-]
 procedure TForm1.MediaPlayer1Notify(Sender: TObject);
 const
   ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped',
     'Playing', 'Recording', 'Seeking', 'Paused', 'Open');
 begin
   with Sender as TMediaPlayer do
   begin
     if modestr[Mode] = 'Playing' then begin
     Form1.Caption := ModeStr[Mode];
     edit1.text:= 'Tocando';
     notify:= true;
   end;
   if ModeStr[Mode] = 'Stopped' then begin
     Form1.Caption := ModeStr[Mode];
     edit1.text:= 'detenidoe';
     Notify := True;
   end;
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   mediaplayer1.open;
   mediaplayer1.play;
 end;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   mediaplayer1.Notify:= true;
 end;
 
 procedure TForm1.Button2Click(Sender: TObject);
 begin
   mediaplayer1.Stop;
 end;
 
 end.