Por una cuestión de practicidad, te recomendaría convertir tu video en un AVI sin codecs extraños, que no puedan existir en la PC donde lo vas a distribuír, y utilizar un simple TAnimate. (Si te fijas en mi página, existe un ejemplo de como incluír el video dentro del EXE)
Pero si es un WMV:
Código Delphi
[-]
var
Animate1: TAnimate;
MediaPlayer1: TMediaPlayer;
begin
Animate1 := TAnimate.Create(Self);
MediaPlayer1 := TMediaPlayer.Create(Self);
with Animate1 do
begin
Parent := Self;
Left := 8;
Top := 12;
Width := 245;
Height := 213;
end;
with MediaPlayer1 do
begin
Parent := Self;
Left := 4;
Top := 240;
Width := 325;
Height := 45;
Display := Animate1;
FileName := 'c:\BatidoraLoca.wmv';
Open;
Play;
end;