Видеоплеер: добавить полосу прокрутки и таймер времени воспроизведения файла

//---------------------------------------------------------------------------
 
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
if(Label3->Caption == "0")
{
}
else
{
MediaPlayer1->Position = (MediaPlayer1->Length/TrackBar1->Max) * TrackBar1->Position;
MediaPlayer1->Play();
}
Label3->Caption = "1";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int TT;
TrackBar1->Position = MediaPlayer1->Position/10;
Label3->Caption = "0";
TT = MediaPlayer1->Position / 1000;
min = int(TT / 60);
sec = TT - (min * 60);
if ( sec < 10)
Label6->Caption = "0" + IntToStr(sec);
else
Label6->Caption = IntToStr(sec);
Label4->Caption = IntToStr(min);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
union TVolume{
unsigned long Volume;
struct
{
Word Left;
Word Right;
};
} volume;
int min,sec;   
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::TrackBar3Change(TObject *Sender)
{
volume.Left = - TrackBar3->Position;
volume.Right = - TrackBar3->Position;
waveOutSetVolume(0,volume.Volume);
}
//---------------------------------------------------------------------------