Delphi - saber si el archivo elegido es sonido o video

Hola a todos estoy trabajando con el tmediaPlayer he agregado un boton examinar para que mediante un opendialog el usuario seleccione la ruta y archivo que desee reprodicir, ahora lo que necesito es de alguna manera saber el tipo de archivo que el usuario ha elegido pues en base a esto yo le mostrare una imagen, en la propiedad filter del opendialog ya estableci los tipos de archivos que se pueden abrir, estos son:
*.mp3
*.wma
*.cda
*.mpg
*.wav

Hay una funcion llamada ExtractFileExt, que pasándole un nombre de archivo te extrae la extensión. Luego, sabiendo que en OpenDialog.FileName se almacena el nombre del archivo que se ha seleccionado, lo tienes todo.

Saludos.