Delphi dicas

Executar um avi no form

Procedure TForm1.BitBtn1Click(Sender: TObject);

begin

        with MediaPlayer1 do

        begin

                FileName := 'c:windowshelpscroll.avi';

                Open;

                Display := Form2;

                Form2.Show;

                Play;

        end;

end;