¿Cómo puedo tomar la extensión de un archivo?

[islu]

Hola, la propiedad filter es para que a la hora de buscar puedas indicar las extensiones que quieres que te muestre. Esta propiedad la puedes cambiar añadiendo o eliminando extensiones. Por ello si tú por ejemplo solo quieres abrir ficheros .jpg, en diseño edita la propiedad filter, dejando solo esta extensión. En DefaultExt, ponla también.

Una vez seleccionado el archivo, simplemente compara los últimos 3 caracteres de la cadena donde tengas el nombre de fichero, con la función copy, sería algo asi :

if ( uppercase(copy(NombreFichero, length(NombreFichero) - 2,3)) ='JPG') then
[...]

No se si es esto lo que necesitabas.