Tocar la Cancion siguiente con el MediaPlayer

[pockelsm3]

Disculpen que el codigo anterior lo utiliza para que pase de una cancion a otra, cuando la que estaba sonando termine.

este es el codigo correcto que estoy utilizando

procedure TFMain.NextClick(Sender: TObject);
begin
MPSound.Stop;
MPSound.Close;
TCanciones.DisableControls;
TCanciones.First;
TCanciones.Delete;
TCanciones.EnableControls;
MPSound.FileName := TCancionesRUTA.Value;
MPSound.Open;
MPSound.Play;
end;

Gracias de antemano