Музыка в С++

void __fastcall TForm1::Button6Click(TObject *Sender)
{
 MediaPlayer1->FileName="D:\\41_AdamLambert-Wha.mp3"; //Загружаем в TMediaPlayer исхожную песню
MediaPlayer1->Open();
 Timer1->Enabled=true; //Включаем таймер, который будет прокручивать наш ScrollBar
 ScrollBar1->Max=MediaPlayer1->Length/245; //Устанавливаем максимальное значение TScrollBar на длину песни
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 ScrollBar1->Position=MediaPlayer1->Position/245;  //Перемещаем ползунок СкроллБара на текущую позицию песни, которая проигрывается
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
  MediaPlayer1->Position=ScrollBar1->Position*245; //Если пользователь вручную перемещает ползунок, то мы меняем позицию в песни на текущию позицию в СкроллБаре
  MediaPlayer1->Play(); //Воспроизводим снова песню, так как после смены позиции проигрывание останавливается
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
//MediaPlayer1->Pause();
MediaPlayer1->Position = TrackBar1->Position;
MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
MediaPlayer1->FileName="C:\\Users\\Public\\Music\\Sample Music\\Kalimba.mp3"; 
MediaPlayer1->Open();
TrackBar1->Max = MediaPlayer1->Length;
}
//---------------------------------------------------------------------------

bool g_bScrolling = false;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        MediaPlayer1->FileName = "d:\\Music.mp3";
        MediaPlayer1->Open();
        MediaPlayer1->Play();
        ScrollBar1->Max = MediaPlayer1->Length;
        ScrollBar1->SmallChange = ScrollBar1->Max / 100;
        ScrollBar1->LargeChange = ScrollBar1->Max / 50;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        if (!g_bScrolling) // если юзер в данный момент не перемещает ползунок
                ScrollBar1->Position = MediaPlayer1->Position;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBar1Scroll(TObject *Sender, // OnScroll
      TScrollCode ScrollCode, int &ScrollPos)
{
        g_bScrolling = true;
 
        if (ScrollCode == scEndScroll)
        {
                MediaPlayer1->Position = ScrollBar1->Position;
                MediaPlayer1->Play();
                g_bScrolling = false;
        }
}
//---------------------------------------------------------------------------