1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TSoundManager.Start();
begin
// Songpath
Songpath := 'Music\';

// Add Song To the List
Songname := 'Main.wav';
with Form1.MediaPlayer1 do
  begin
  FileName := Songpath + Songname;
  Open;
  EndPos := TrackLength[1];
  end;
CurrentSongTime := Form1.MediaPlayer1.TrackLength[1];
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TSoundManager.PlayBackgroundMusic();
begin
if not(ContinuePlayMusic) then // ContinuePlayMusic verändert sich je nach der CheckBox.
  begin
  if CurrentSongTime > 0 then
    begin
    CurrentSongTime := 0;
    Form1.MediaPlayer1.Stop;
    end;
  end
else
  begin
  if (CurrentSongTime > Form1.MediaPlayer1.TrackLength[1]) or (CurrentSongTime = 0) then
    begin
    Form1.MediaPlayer1.Previous;
    CurrentSongTime := 0;
    Form1.MediaPlayer1.Play;
    end;
  CurrentSongTime := CurrentSongTime + Performance.Timegap;
  // CurrentSongTime entspricht der vergangen Zeit in ms, da der 
  // MediaPlayer bei TrackLength diese auch in ms angibt.
  end;
end;