Белый экран вместо работающего приложения - PascalABC.NET

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

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
{$reference 'PresentationCore.dll'}

uses GraphABC, ABCObjects;
 
var 
 P : PictureABC; 
 
begin
    var Player := new System.Windows.Media.MediaPlayer; 
    Player.Open( new System.Uri('9520.mp3', System.UriKind.Relative)); 
    Player.Play(); 
  
    System.Windows.Forms.Application.Run();

    P := New PictureABC(10, 10, 'haha.jpg'); 
    P.Transparent := True; 
end.

По идее, должно работать, но вместо работы выдаёт белый экран. Файлы лежат там же, куда выводится ехешник. Должно при открытии программы выводить картинку со звуком.

Решение задачи: «Белый экран вместо работающего приложения»

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

{$reference 'PresentationCore.dll'}
 
 
 
uses GraphABC, ABCObjects;
 
var 
 P : Picture; 
 
begin
    var Player := new System.Windows.Media.MediaPlayer; 
    Player.Open( new System.Uri('9520.mp3', System.UriKind.Relative)); 
    Player.Play(); 
  
    P:=Picture.Create(10,10);
    P.Load('haha.jpg');
    P.Draw(0,0); 
    P.Transparent := True; 
    System.Windows.Forms.Application.Run()
end.

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

Создается новый экземпляр класса MediaPlayer и открывается файл '9520.mp3'.
Запускается воспроизведение звука.
Создается новый экземпляр класса Picture с размерами 10x10.
Загружается изображение из файла 'haha.jpg'.
Рисуется изображение на экране.
Устанавливается прозрачность картинки.
Запускается приложение.