Busca en la ayuda acerca de las funciones FindFirst y FindNext para obtener el listado mediante un ciclo while. Los nombres de los archivos puedes colocarlos en un ListBox y en el evento OnClick de éste desplegar la imagen correspondiente en un TImage.
// Saludos
|