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

[nuri]

Hola
¿Cómo puedo tomar la extensión de un archivo?. Es que necesito saberla para copiar ese archivo con la extensión que tenía pero en otra carpeta distinta así como con otro nombre.
El archivo lo cargo con TOpenDialog, que tiene una propiedad llamada filter, pero esta me devuelve todas las extensiones que soporta el cuadr de diálogo.
Muchas gracias a quien pueda ayudarme.
Atentamente
Nuri