MediaPlayer, не проигрываются песни

void __fastcall TForm42::MediaPlayer1Click(TObject *Sender,
      TMPBtnType Button, bool &DoDefault)
{
         MediaPlayer1->Close();
 MediaPlayer1->FileName="C:\\Documents and Settings\\Admin\\Рабочий стол\\ПАПКА\\МУЗ\\026-jasper_forks_-_river_flows_in_you.mp3"; 
 MediaPlayer1->Open();
}
 
void __fastcall TForm42::Timer1Timer(TObject *Sender)
{
int min = MediaPlayer1->Position/1000/60;
 int sec = MediaPlayer1->Position/1000%60;
 Caption = (String)min + " : " + sec;
}

AnsiString Path = "\\Музыка\\*.mp3";
TSearchRec sr;
int iAttributes = faAnyFile;
int done = FindFirst( Path, iAttributes, sr );
while(!done)
{
ListBox1->Items->Add(ChangeFileExt(sr.Name,""));
done = FindNext(sr);
}
FindClose(sr); 
}

AnsiString Path = "\\Музыка\\*.mp3";//путь к папке поиска по расширению
TSearchRec sr;/// Структура заполняется информацией о найденном файле
                           // по вызову ф-ций FindFirst и FindNext
int iAttributes = faAnyFile;// константа faAnyFile означает, что функция  FindFirst будет искать любые файлы
int done = FindFirst( Path, iAttributes, sr );//передаём параметры в функцию и приравниваем к переменной
while(!done)// ищем пока не найдём все файлы с заданным расширением в папке
{
ListBox1->Items->Add(ChangeFileExt(sr.Name,""));//если нашли заносим название файла в ListBox и при этом обрезаем расширение файла
done = FindNext(sr);//ищем дальше
}
FindClose(sr); //закрываем поиск 
}

void __fastcall TForm4::SpeedButton4Click(TObject *Sender)
{
 
 
  if (SelectDirectory("выберете папку с mp3", "", SoundPath))
  {
          SoundPath=SoundPath+"\\";
         PlayList(SoundPath);
                        
  }
 
 
}
 
void __fastcall TForm4::PlayList(AnsiString path)
{
        TSearchRec SearchRec;//структура SearchRec содержит информацию
                                                //о файле, удовлетворяющем условию поиска
   //сформируем список мп3-файлов
   if(FindFirst(path+"*.mp3", faAnyFile, SearchRec)==0)
   {
        //в каталоге есть файл с расширением мп3
        //добавим имя этого файла в список
        ListBox1 -> Items -> Add(SearchRec.Name);
        //есть ещё мп3-файлы?
        while (FindNext(SearchRec)== 0)
                ListBox1 -> Items -> Add(SearchRec.Name);
 
        }
        ListBox1 -> ItemIndex = 0;
 
}

void __fastcall TForm4::Play()
{
    Timer1 -> Enabled = false;
    Label1 -> Caption = ListBox1 -> Items -> Strings[ListBox1 -> ItemIndex]; //это лишнее
    MediaPlayer1 -> FileName =
            SoundPath + ListBox1 -> Items -> Strings[ListBox1 -> ItemIndex];
    MediaPlayer1 -> Open();
    MediaPlayer1 -> Play();
    min = 0;
    sec = 0;
    Timer1 -> Enabled = true;
    Timer2 -> Enabled = true;//лишнее
 
    SpeedButton2 -> Glyph = SpeedButton6 -> Glyph;//лишнее
    SpeedButton2 -> Hint = "Stop";//лишнее
    SpeedButton2 -> Tag = 1;//лишнее
 
    ScrollBar1->Max=MediaPlayer1->Length/60; //Устанавливаем максимальное значение TScrollBar на длину песни//лишнее
 
    AnsiString st;
    int mn, sc;
    int iL=MediaPlayer1 -> Length/1000;
      mn =  iL / 60;
      sc = iL % 60;
    st= IntToStr(mn)+":";
    if(sc < 10)
        st=st+"0"+ IntToStr(sc);
    else st =st+ IntToStr(sc);
 
 
 
 
 
        Label3-> Caption = st;
}
 
 
 
 
void __fastcall TForm4::Timer1Timer(TObject *Sender)
{
     AnsiString st;
    if (sec < 59)
        sec++;
    else
    {
    sec=0;
    min++;
    }
    st= IntToStr(min)+":";
    if(sec < 10)
        st=st+"0"+ IntToStr(sec);
    else st =st+ IntToStr(sec);
 
    Label2-> Caption = st;
    ScrollBar1->Position=MediaPlayer1->Position/60;
    //если воспроизведение завершено
    if(MediaPlayer1 -> Position == MediaPlayer1 -> Length)
    {
        Timer1 -> Enabled = false;
        MediaPlayer1 -> Stop();
 
        if (ListBox1 -> ItemIndex < ListBox1 -> Count -1)
        {
            ListBox1 -> ItemIndex = ListBox1 -> ItemIndex   +1;
            Play();
        }
        else
        Stop();
    }