[NumLock]

Код:

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    ButtonOpen: TButton;
    OpenDialog1: TOpenDialog;
    procedure ButtonOpenClick(Sender: TObject);
...
procedure TForm1.ButtonOpenClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    MediaPlayer1.FileName:=OpenDialog1.FileName;
    MediaPlayer1.Open;
  end;
end;

остальныен кнопки уже есть. TMediaPlayer воспроизведет любой формат, если соотв. кодек установлен в системе.