Executar um AVI no Form

procedure TForm1.BitBtn1Click(Sender: TObject);
begin 
   with MediaPlayer1 do begin
      FileName := 'c:\windows\help\scroll.avi';
      Open;
      Display := Form2;
      Form2.Show;
      Play;
   end;
end;