hola,teingo q hacer:
una función o procedure 'RellenarFotos(directorio:String);' q:
-encuentre unidad de una memoria q tu metas,por ejemplo SD.
-lea fotos del dir raíz y subdirectorios del raíz q tengan fotos; con lo cuál todos los ficheros de fotos de la unidad se guarden en una 'lista:TstringList'.
-Los elementos de la lista,q son fotos,deben ser mostrados en la aplicación
con muchos componentes 'Timage'(concretamente uso 6 'TImage').
-con un botón llamado'sgtes_fotos',pincho y muestro 6 siguientes fotos de la lista, y así hasta la última.
Saludos.