Не воспроизводится mp3 файл с помощью MediaPlayer - PascalABC.NET

Формулировка задачи:

Здравствуйте! Столкнулся с такой проблемой: Программа не хочет воспроизводить mp3 файл, который с ней в одном каталоге. Вот кусок кода

procedure B1_Click(Sender: Object; Args: System.EventArgs);
 
begin
  var Player := new System.Windows.Media.MediaPlayer; 
  Player.Open( new System.Uri('5292302.mp3', System.UriKind.Relative)); 
  Player.Play(); \
 
end;

Причём всё остальное работает как надо.

Решение задачи: «Не воспроизводится mp3 файл с помощью MediaPlayer»

Листинг программы

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
 {$reference 'PresentationCore.dll'}
uses
  System.Windows.Forms,
  System.Drawing;
  
var
  MainForm: System.Windows.Forms.Form;
  B1: System.Windows.Forms.Button;
 
procedure B1_Click(Sender: Object; Args: System.EventArgs);
begin
  var Player := new System.Windows.Media.MediaPlayer; 
  Player.Open( new System.Uri('C:/Pascal/5292302.mp3', System.UriKind.Relative)); 
  Player.Play(); 
 
end;
  
begin
  B1 := new Button; 
  B1.Location := new System.Drawing.Point(100, 110); 
  B1.Text := 'Кнопка'; 
  B1.Click += B1_Click; 
 
  MainForm := new Form;
  MainForm.Text := 'Нажмите кнопку';
  
  MainForm.Controls.Add(B1); 
  
  Application.EnableVisualStyles; 
  
  Application.Run(MainForm);
end.

Объяснение кода листинга программы

Объявлены переменные:
- MainForm: System.Windows.Forms.Form;
- B1: System.Windows.Forms.Button;
Создана процедура B1_Click, которая будет выполняться при нажатии кнопки B1.
В процедуре B1_Click создается новый объект System.Windows.Media.MediaPlayer и открывается mp3 файл с помощью метода Open.
Запускается воспроизведение mp3 файла с помощью метода Play.
В основной части кода создается кнопка B1 и устанавливаются ее свойства:
- B1.Location := new System.Drawing.Point(100, 110);
- B1.Text := 'Кнопка';
- B1.Click += B1_Click;
Создается объект MainForm типа Form с текстом 'Нажмите кнопку'.
Кнопка B1 добавляется в коллекцию Controls объекта MainForm.
Включаются визуальные стили с помощью метода EnableVisualStyles.
Запускается приложение с формой MainForm с помощью метода Run.