The following example demonstrates playing a AVI file in full screen mode by displaying the AVI on a second form that has the form border style set to bsNone and has no border icons. Note that the second form has a panel with it's alignment set to alClient, and a MediaPlayer component that has a Notify event. We will show the second form maximized, and when the AVI file has played, the Notify event will close the form.

Example:
{Code for Form  }
uses Unit2;
procedure TForm .Button Click(Sender: TObject);
begin
  Form2.Show;
  Form2.WindowState := wsMaximized;
  Form2.MediaPlayer .Notify := false;
  Form2.MediaPlayer .Display := Form2.Panel ;
  Form2.MediaPlayer .FileName := 'C:\TheWall\DELCAR2.AVI';
  Form2.MediaPlayer .Open;
  Form2.MediaPlayer .DisplayRect := Form2.ClientRect;
  Form2.MediaPlayer .Play;
end;
{Code for Form 2}
procedure TForm2.MediaPlayer Notify(Sender: TObject);
begin
  if MediaPlayer .NotifyValue = nvSuccessful then
    Form2.Close;
end;