Executar um AVI no formulário

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

  with MediaPlayer1 do

  begin

    FileName := 'c:\windows\help\move.avi';

    Open;

    Display := Form2;

    Form2.Show;

    Play;

  end;

end;