Как закрыть форму и работу программы после отработки видео ?

{$reference 'System.Windows.Forms.dll'}
{$reference 'PresentationCore.dll'}
{$reference 'PresentationFramework.dll'}
{$reference 'WindowsFormsIntegration.dll'}
{$reference 'System.Drawing.dll'}
{$reference WindowsBase.dll}
 
uses
  System.Threading, 
  System.Windows, 
  System.Drawing, 
  System.Windows.Media,
  System.Windows.Forms,
  System.Windows.Forms.Integration,
  System.Windows.Controls;
 
procedure main;
begin
  var myForm := new Form;  
  var myGrid := new Grid;    
  var mp := new MediaPlayer;
  mp.Open(new System.Uri('C:\Video\Фильм.mp4'));
  var vd := new VideoDrawing;
  vd.Player := mp;
  vd.Rect := new Rect(0, 0, myForm.Width, myForm.Height);
  var db := new DrawingBrush(vd);
  var host := new ElementHost;
  host.Child := myGrid;
  host.Dock := DockStyle.Fill;
  myGrid.Background := db;
  myForm.Controls.Add(host);
  myForm.Width:=1920; //Задаем размеры окна
  myForm.Height:=1080;
  mp.play;
  Application.Run(myForm);
end;
 
begin
  var Thread1 := new Thread(main);
  Thread1.SetApartmentState(ApartmentState.STA);
  Thread1.Start(); 
end.

{$reference PresentationCore.dll}
{$reference PresentationFramework.dll}
 
// И никаких запусков ещё 1 потока из основного, с STA
// Эта строчка делает основной STA. Ну и убирает консоль при запуске из вне IDE
{$apptype windows}
 
uses System.Windows;
uses System.Windows.Controls;
 
begin
  var MainWindow := new Window;
  
  var me := new MediaElement;
  me.Source := new System.Uri('C:\0.mp4');
  MainWindow.Content := me;
  
  Halt(Application.Create.Run(MainWindow));
end.

  me.MediaEnded += (o,e)->MainWindow.Close();

  MainWindow.WindowState := WindowState.Maximized;