How to display an AVI file on the full screen

(1) create a project file
(2) Select File | new form to create a form and set its name: = form2
(3) set form2.borderstyle: = bsnone
(4) place a medialplayer component on form2
(5) place a panel component on form2 and set its name: = Panel1
(6) set panel1.align: = alclient
(7) Add the following Code:
Procedure tform1.button1click (Sender: tobject );
Begin
With form2 do
Begin
Show; windowstate: = wsmaximized;
Mediaplayer1.policy: = false;
Mediaplayer1.display: = Panel1;
Mediaplayer1.filename: = 'C:/temp/cool. avi ';
Mediaplayer1.open;
Mediaplayer1.displayrect: = form2.clientrect;
Mediaplayer1.play;
End;
End;

(8) Add the following code to the onlayy event of mediaplayer1 in form2
Procedure tform2.mediaplayer1policy (Sender: tobject );
Begin
If mediaplayer1.policyvalue = nvsuccessful
Then form2.close; end;