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

[paufra]

Echale un ojo a estas funciones:

• ExtractFileExt(const FileName: string): string; Extrae la extensión
• ExtractFileName(const FileName: string): string; Extrae el nombre

En la SysUtils tienes algunas funciones de este tipo que te pueden ayudar. En tu caso obtener la extensión seria:

Código Delphi [-]
Extension := ExtractFileExt(OpenDialog.FileName);