void __fastcall TForm1::ProgressBar1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
    if(Shift.Contains(ssLeft)) ProgressBar1->Position = X * ProgressBar1->Max / ProgressBar1->Width;
}
위의 코드를 더 자연스럽게 바꿔봤습니다.

장성호 님이 쓰신 글 :
: void __fastcall TForm1::ProgressBar1MouseUp(TObject *Sender,
:       TMouseButton Button, TShiftState Shift, int X, int Y)
: {
:     ProgressBar1->Position = X*ProgressBar1->Max/ProgressBar1->Width;
: }
:
: 설명 안 달아줘도 되겠죠?
:
: 그럼..
:
: 볼랜드 어려버..ㅠ 님이 쓰신 글 :
: : 폼 위에.. 한 ProgressBar를 올려두고.. 작업을 하고 싶습니다..
: :
: : 그 ProgressBar에서 하고 싶은 작업은..
: :
: : ----------------------------------------
: : |                                                                   |
: : |                                                                   |
: : ----------------------------------------
: :
: : 이런 상태에서 마우스를
: :
: : ----------------------------------------
: : |                                   이곳                         |
: : |                                                                   |
: : ----------------------------------------
: : 이곳이라는 곳을 클릭하면,
: :
: : ----------------------------------------
: : |■■■■■■■■■■■■■■                                |
: : |■■■■■■■■■■■■■■                                |
: : ----------------------------------------
: : 이렇게 채워지게 끔 하고 싶습니다..
: :
: : 한마디로 ProgressBar 에서 어떠한 위치를 클릭하면 그 위치까지 Position 혹은 Progress 가게끔 하고 시퍼요.
: :
: : 어떤  ProgressBar를 쓰면 될까요?  .. 저 작업의 코딩도 알려주시면 ㄳㄳ
: :
: : 수고하세요