[[Delphius]]

Si usas ExtractFileName obtendrás el nombre del archivo y su extensión, por ejemplo: "miarchivo.txt"

Ahora, si quieres por otro lado obtener solamente la extensión, puedes usar ExtractFileExt(), de la misma sysutils.