Como executar um avi no form

Crie dois formulários e adicione o componente TmediaPlayer no seu form, depois coloque um botão e adicione o código abaixo no evento onclick do mesmo.

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

with MediaPlayer1 do

begin

   // coloque o path de um avi

   FileName := ' C:\Arquivos de programas\Borland\Delphi6\Demos\CoolStuf\speedis.avi';

   Open;

   Display := Form2;

   Form2.Show;

   Play;

end;

end;