Auch von mir: herzlich Willkommen in der
DP 
Zu deinem Problem (auch wenn die Frage jetzt nicht ganz regelkonform ist, bearbeiten geht übrigens über den Edit-Knopf): Du musst mit
FindFirst/
FindNext dein Verzeichnis durchsuchen und eine Liste aller Videos führen. Dann zufällig eins auswählen. Das geht dann etwa mit List[Random(List.Count)]. Randomize ist dabei nicht zu vergessen (allerdings nur
1x aufrufen)
Bernhard