빌더에 기본으로 있는 TProgressBar를 사용했습니당.
OnMouseDown 이벤트에 이렇게 코딩하구요.

void __fastcall TForm1::ProgressBar1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    ProgressBar1->Max= ProgressBar1->Width;
    ProgressBar1->Position= X;
}



볼랜드 어려버..ㅠ 님이 쓰신 글 :
: 폼 위에.. 한 ProgressBar를 올려두고.. 작업을 하고 싶습니다..
:
: 그 ProgressBar에서 하고 싶은 작업은..
:
: ----------------------------------------
: |                                                                   |
: |                                                                   |
: ----------------------------------------
:
: 이런 상태에서 마우스를
:
: ----------------------------------------
: |                                   이곳                         |
: |                                                                   |
: ----------------------------------------
: 이곳이라는 곳을 클릭하면,
:
: ----------------------------------------
: |■■■■■■■■■■■■■■                                |
: |■■■■■■■■■■■■■■                                |
: ----------------------------------------
: 이렇게 채워지게 끔 하고 싶습니다..
:
: 한마디로 ProgressBar 에서 어떠한 위치를 클릭하면 그 위치까지 Position 혹은 Progress 가게끔 하고 시퍼요.
:
: 어떤  ProgressBar를 쓰면 될까요?  .. 저 작업의 코딩도 알려주시면 ㄳㄳ
:
: 수고하세요