Mira en las excepciones del programa... Puede hacer:
Código Delphi
[-]
try
MediaPlayer1.FileName := 'C:\mp31.mp3';
MediaPlayer1.Open;
except
MediaPlayer1.FileName := 'C:\mp32.mp3';
MediaPlayer1.Open;
end;
Adapta esto a tu caso, por ejemplo si tienes una lista de canciones y un botón que inicia la canción seleccionada puedes hacer:
Código Delphi
[-]
procedure Play(NSong: Integer);
try
MediaPlayer1.FileName := ListBox1.Items[NSong];
MediaPlayer1.Open;
except
Play(NSong+1);
exit;
end;
end;
para llamarlo des de el botón:
Código Delphi
[-]Play(ListBox1.ItemIndex);
PD: El código lo he escrito desde la web, no sé si es correcto, pero la idea es esa. Compruebalo y modificalo a tu gusto. ;-)