Tocar la Cancion siguiente con el MediaPlayer

[pockelsm3]

Buenas, tengon un inconveniente con una applicacion que estoy desarrollando para tocar musica, videos y peliculas.

mi problema consiste en que cuando quiero avanzar a la siguiente mientras ya esta tocando alguna, me da un el siguiente error

MCIDiviceError with message 'cannot determine the divice type from the given filename extension'

Este es el codigo que estoy utilizando

Código Delphi [-]
procedure TFMain.MPSoundNotify(Sender: TObject);
begin
  if MPSound.Mode = mpPlaying then
    begin
      MPSound.Close;
      TCanciones.DisableControls;
      TCanciones.First;
      TCanciones.Delete;
      TCanciones.EnableControls;
      MPSound.FileName := TCancionesRUTA.Value;
      MPSound.Open;
      MPSound.Play;
    end;
end;