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);