Pues reproduces en un TMediaPlayer el vídeo, pones un TTimer que en su propiedad Interval ponga el tiempo en el que realice una captura, y en el evento OnTimer, haces un pause al video, maximizas la pantalla, haces un screenshot y guardas la imagen, después, juntas todas las imágenes en un .AVI y listo.
Confío en que mis compañeros me corrijan se he errado en algo.
![Wink](http://www.clubdelphi.com/foros/images/smilies/wink.gif)