[--rocco---]

Когда учился в Политехе КарГТУ (окончил 2005г.) - писал программы для тренировки и соответственно практики.
Вот одна из них....
В размещении на форме элементов, и свойствах разберешся исходя из когда, может, что и усовершенствуешь
(привожу полный, чтобы не запарился):
(кнопки у меня в программе были наложены выборочно друг на друга, поэтому они скрывались и появлялись при кликах)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
MediaPlayer1: TMediaPlayer;
Button2: TButton;
Panel1: TPanel;
Button3: TButton;
Button4: TButton;
OpenDialog1: TOpenDialog;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
mediaplayer1.FileName:=opendialog1.FileName;
mediaplayer1.Open;
end;
if mediaplayer1.FileName<>'' then begin
button3.show;
button2.hide;
button1.hide;
button4.hide;
button5.show; end else button1.show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mediaplayer1.stop;
mediaplayer1.close;
button2.Hide;
button3.Show;
button1.Show;
button4.hide;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
mediaplayer1.pause;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
mediaplayer1.Play;
button3.Hide;
button2.Show;
button1.hide;
button4.show;
button5.hide;
end;

end.