제가 해결한 방법은 TLabel을 이용하는 겁니다.
TLabel 두 개를 겹쳐서 놓습니다.
Label1이 아래에 있고 Label2가 위에 있다고 가정하고
둘 다 autosize는 false로 잡습니다.
Label1 은 width를 0으로 하고 color를 navy로 하고
Label2 는 transparent 를 true로 해 줍니다.

그러고 작업이 진행될 때의 코드를 적당히 적어줍니다.

Label1->Width = (int)((double)Label1->Width/(double)Label2->Width * 100.0);
Label2->Caption = IntToStr(Label1->Width) + " %";

이렇게 하면 원하시는 프로그레스바를 만들 수 있습니다.
Bevel 을 이용해서 위를 덮어주면 3D 모양을 만들 수도 있습니다.