animación Delphi

[delphi.com.ar]

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;