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

procedure TForm1.FormCreate(Sender: TObject);
begin

Mediaplayer1.visible:=false;
MediaPlayer1.FileName := 'song.mp3';
MediaPlayer1.Open;
Mediaplayer1.play;
MediaPlayer1.Notify   := True;
  MediaPlayer1.OnNotify := NotifyProc;

procedure TForm1.NotifyProc(Sender: TObject);
begin
  with Sender as TMediaPlayer do
  begin
    case Mode of
      mpStopped:Label1.caption:='stop' // hier soll der song eigetlich neu gestartet werden;
    end;

    Notify := True;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

with MediaPlayer1 do
begin
  FileName := cSoundDatei;
  Open;
  Wait := True;
  For i:=1 to 3 do
    begin
    Play;
    if not AutoRewind then Previous;
    end;
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:

unit Unit1;

interface

uses
      ...

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    Timer1: TTimer;
    Play: TButton;
    Stop: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PlayClick(Sender: TObject);
    procedure StopClick(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Loop, Loops: Integer;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  MediaPlayer1.Visible:=false;
  MediaPlayer1.FileName:='F:\mp3\Kylie_bei_TvTotal_only_001.mp3';
  MediaPlayer1.Open;
  Loop:= 0;   // Wiederholungszähler auf Null setzen
  Loops:= 2;  // Anzahl der Wiederholungen
end;

procedure TForm1.PlayClick(Sender: TObject);
begin
  MediaPlayer1.Play;      // Song abspielen
  Timer1.Enabled:=true;   // Timer starten
  form1.Caption:='Play !'
end;

procedure TForm1.StopClick(Sender: TObject);
begin
  Loop:=0;                   // Wiederholungszähler auf Null setzen
  MediaPlayer1.Stop;         // Song stopen
  MediaPlayer1.Rewind;       // Mp3 auf Anfang zurücksetzen
  Timer1.Enabled:=false;     // Timer stopen
  form1.Caption:='gestopt !'
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if MediaPlayer1.Position = MediaPlayer1.Length then
  // ^^ Prüft ob Song schon zu Ende ^^
  // Wenn Song zu Ende, neu starten

Begin
  MediaPlayer1.Play;   // Song abspielen
  Loop:=Loop+1         // Wiederholungszähler um 1 erhöhen
end;

  if Loop = Loops+1 then
  // Prüfen ob die maximale Anzahl der Wiederholung
  // schon erreicht ist

  begin
  MediaPlayer1.Stop;      // Song stopen
  Timer1.Enabled:=False;  // Timer stopen
  Loop := 0;              // Wiederholungszähler auf Null setzen
  end;
  form1.Caption:=inttostr(loop)+ '. Wiederholung von '+inttostr(loops)+' Wiederholungen !';
end;

end.