con todas las imagenes dentro de un directorio, puedes utilizar findfirst y findnext para añadir el path de las mismas a una stringlist y con los numeros que te da la funcion que ya tienes puedes acceder al path de estas y cargar las imagenes en timages por ejemplo.
Algo asi:
Código:
mitimage1.picture.loadfromfile(mistringlist[Ristra.PillaNumero])