Was exakt funktioniert denn daran nicht, Matze? Wird gar nichts gespielt
oder wird der Zufall nicht eingahalten?
Mir stechen zunächst mal 3 wesentliche Dinge ins Auge:
1.)
Zu Deiner Rekursion: Sie ist im Grunde unendlich. Solltest Du sehr viele Tracks laufen haben, stürzt Dir das Ding wegen 'nem Stack-Overflow ab. Hier nimmst Du entweder eine Abbruchbedingung der Rekursion mit rein, oder Du nimmst die Schleife raus und packst sie nach außen.
2.)
Gib dem Mediaplayer doch mal die Information, dass Du explizit MP3-Files spielst, falls Du das nicht mittles Objektinspektor bereits getan hast.
3.)
Überprüfe mal in einem Editfeld, ob
Zitat:
(PChar(ExtractFilePath(Application.ExeName)+ 'MP3\Sound'+IntToStr(Song)+'.mp3'))
tatsächlich exakt Pfad und Name Deiner Mp3 zurück gibt.