Hola.
Te dejo un ejemplo de un form con 4 botones y 1 TMediaPlayer que hice hace un tiempo.
Tienes que cambiar el nombre del archivo y poco más.
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, StdCtrls;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
close ;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
MediaPlayer1.Close ;
MediaPlayer1.FileName := 'c:\_varios\inverno.mp3' ;
MediaPlayer1.Open ;
MediaPlayer1.Play ;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
MediaPlayer1.Pause ;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
MediaPlayer1.Stop ;
end;
end.
Espero que te sirva.
Saludos