Slide de imágenes

[Renegado]

Hola! envío una pequeña contribución, si quieren mejorarla no se olviden de mí. Quise meter las imágenes en una carpeta, pero al correr el programa no me aparecían.
private cPath := GetCurrentFolder() + '\imagenes'

tal vez, solo falta hacer que cambie de directorio para que este completo.
Gracias. Atte. Antonio