Deinen Code kann man auch gleich so reduzieren:
Delphi-Quellcode:
procedure TForm1.SpieleMusikAb(FileName: string);
var
fname: string;
begin
fname := ExtractFileDir(Paramstr(0))+'\sound\'+FileName+'.mp3';
// ggf if Fileexists(fname) then begin
MediaPlayer1.Close;
MediaPlayer1.FileName:=fname;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
Da ist nichts mit Resource !
Gruß
K-H