Как вставить видео в программу?

{reference 'PresentationCore'}
begin
var b:= new MediaPLayer('1.pm4');
b.play;
end.

{$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:\Buffer\1.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);
  
  mp.play;
  Application.Run(myForm);
end;
 
begin
  var Thread1 := new Thread(main);
  Thread1.SetApartmentState(ApartmentState.STA);
  Thread1.Start(); 
end.