Регулятор звука в C++ Builder 6

[EaRLL]

Народ, помогите мне, у меня проблема, задали в универе зделать медиа Плейер, почти его зделал, но вот надо зделать :
1) регулятор звука ScrollBar'om
2) и по возможности Регулятор Трека ScrollBar'om и (ProgressBar'om или CGauge)

Программлю на С++ Builder 6

вот код проги:

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvGlowButton"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
void__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{

MediaPlayer1->FileName=OpenDialog1->FileName;
MediaPlayer1->Open();

}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
MediaPlayer1->Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{

MediaPlayer1->FileName=OpenDialog1->FileName;
MediaPlayer1->Open();

}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N4Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Open1Click(TObject *Sender)
{
mciSendString ( "Set cdaudio door open wait", NULL, 0, NULL);  
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Close2Click(TObject *Sender)
{
mciSendString ( "Set cdaudio door closed wait",NULL,0,NULL); 
}
//---------------------------------------------------------------------------

void __fastcall TForm1::AdvGlowButton1Click(TObject *Sender)
{
mciSendString ( "Set cdaudio door open wait", NULL, 0, NULL);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::AdvGlowButton2Click(TObject *Sender)
{
 mciSendString ( "Set cdaudio door closed wait",NULL,0,NULL);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::AdvGlowButton3Click(TObject *Sender)
{
 if (OpenDialog1->Execute())
{
MediaPlayer1->FileName=OpenDialog1->FileName;
MediaPlayer1->Open();
}
}
//---------------------------------------------------------------------------