여러가지 방법이 있습니다.

방법1. 그런 기능이 있는 Component를 씁니다. (여기 컴포넌트 자료실에 있을겁니다.)
방법2.  PrograssBar의 WinProc를  SubClassing해서 직접 그려줍니다.(별로 추천하고 싶지 않네요)

방법3 (추천)
       TLabel을 이용합니다. 
       TLabel의 Parent를 PrograssBar로 설정해주고
       TLabel의 Transparent=true해주시면 됩니다.

//아래의 코드를 그대고 써도 무방할 것입니다.

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Label1->Parent=ProgressBar1; //DesignTime때는 PrograssBar를 Parent로 설정할수 없기때문에 Coding으로

    //---아래는 design time 때 설정하면되는 항목
    Label1->Transparent=true;    //글자가아닌부분은 Parent의 이미지가 보여줌
    Label1->AutoSize=false;        // Caption의 길이에 따라 자동으로 크기가 바뀌지 않도록...
    Label1->Alignment=taCenter; //글자가   좌-우로  볼깨 한가운데 나타나게...
    Label1->Layout=tlCenter;       //글자가  위-아래로 볼때 한가운데 나타나게
    Label1->Left=(ProgressBar1->Width-Label1->Width)/2;  // Label1의 위치를 PrograssBar1의 한가운데로 조정
    Label1->Top=(ProgressBar1->Height-Label1->Height)/2;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    ProgressBar1->Position++;
    Label1->Caption=IntToStr(ProgressBar1->Position);
}
//---------------------------------------------------------------------------


     

kitoy 님이 쓰신 글 :
: ProgressBar에 글자를 넣으려면 어떻게 하죠?
: ProgressBar의 범위가 0~100까지라면
: ProgressBar 안에다가 0~100까지의 숫자도 같이 보여주고 싶거덩요...
: 어떻게 하면 될까요?