if MediaPlayer1->TrackPosition = MediaPlayer1->TrackLength
{
 b++;
  ListBox1->ItemIndex=b;
  MediaPlayer1->FileName=ListBox1->Items->Strings[ListBox1->ItemIndex];
  MediaPlayer1->Open(); MediaPlayer1->Play();
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button14Click(TObject *Sender)
{
MediaPlayer1->Stop();
Timer2->Enabled = false;
MediaPlayer1->Position = MediaPlayer1->Position+1000;
Timer2->Interval = MediaPlayer1->Length-MediaPlayer1->Position;
Timer2->Enabled = true;
MediaPlayer1->Play();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button13Click(TObject *Sender)
{
MediaPlayer1->Stop();
Timer2->Enabled = false;
MediaPlayer1->Position = MediaPlayer1->Position-1000;
Timer2->Interval = MediaPlayer1->Length-MediaPlayer1->Position;
Timer2->Enabled = true;
MediaPlayer1->Play();
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

void __fastcall TForm1::Button11Click(TObject *Sender) //Это обработчик события OnTimer
{
MediaPlayer1->TimeFormat = tfMilliseconds;
w=MediaPlayer1->Position;
MediaPlayer1->TimeFormat = tfMilliseconds;
h=MediaPlayer1->Length;
w=w/h;
w=w*100;
CGauge1->Progress = w;
Label4->Caption = ("Прошло времени в секундах: " + IntToStr(MediaPlayer1->Position/1000));
TrackBar1->Position = CGauge1->Progress;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
MediaPlayer1->Pause();
Timer2->Enabled = false;
if (TrackBar1->Position != CGauge1->Progress)
{
MediaPlayer1->Position = TrackBar1->Position*MediaPlayer1->Length/100;
Timer2->Interval = MediaPlayer1->Length-MediaPlayer1->Position;
Timer2->Enabled = true;
}
else
{
Timer2->Interval = MediaPlayer1->Length-MediaPlayer1->Position;
Timer2->Enabled = true;
}
MediaPlayer1->Play();
}
//-----------------