Здрастье. Пишу плеер и столкнулся с проблемой - как узнать, какое расширение имеет муз. файл (.mp3;.mpg;.avi и т.д). Должно получиться вроде того:

Помогите пожалуйста!

ExtractFileExt чем не устраивает?

Извини, я наверное описался, я имел ввиду то, что я уже знаю какое расширение файл. Не могу только понять, помоги пожалуйста разобраться.
Вот так:

if {расширение .WAV} then begin
                   {делаем какие-то действия.}
                     end;
                  if {расширение .MP3} then begin
                    {делаем какие-то действия.}
                     end;  

Прости volvo, лоханулся. Вот че получилось:

begin
 OpenDialog1.Execute;
 if ExtractFileExt(OpenDialog1.FileName) = '.mp3' then begin
 MediaPlayer1.FileName := OpenDialog1.FileName;
 MediaPlayer1.Open;
 Mediaplayer1.Play;
 end;
end;

Вывод: БОЛЬШЕ сна! Спасибо за помощь!