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.
