Как проиграть AVI на полный экран

Просто проиграть его на другой форме, развернутой на весь экран

{Code for Form 1}

uses
 Unit2;

procedure
 TForm1.Button1Click(Sender: TObject);
begin

  Form2.Show;
  Form2.WindowState := wsMaximized;
  Form2.MediaPlayer1.Notify := false
;
  Form2.MediaPlayer1.Display := Form2.Panel1;
  Form2.MediaPlayer1.FileName := 'C:TheWallDELCAR2.AVI';
  Form2.MediaPlayer1.Open;
  Form2.MediaPlayer1.DisplayRect := Form2.ClientRect;
  Form2.MediaPlayer1.Play;
end
;

{Code for Form 2}

procedure
 TForm2.MediaPlayer1Notify(Sender: TObject);
begin

  if
 MediaPlayer1.NotifyValue = nvSuccessful then

    Form2.Close;
end
;

Другое по теме:

• Как заставить TMediaPlayer проигрывать одно и тоже бесконечно (AVI например)
• Как получить картинку с видео источника
• Как узнать число кадров AVI файла, и выяснить как долго будет проигрываться этот файл