[Netscaper]

Вовсе не обязательно. При выполнении какого-нибудь цикла можно сделать так:

Код:

 void __fastcall TForm1::Button1Click(TObject *Sender)
 {
         for(int i=0;i<100000;i++)
         {
                 ProgressBar1->Position = i;
                 Application->ProcessMessages();
         }
 }

Т.е. давать возможность приложению обработать очередь сообщений.
Если TThread, то достаточно создать наследный класс, скажем, TMyThread, в котором перекрыт абстрактный метод Execute, а также введен новый ShowMeth, который меняет значение ProgressBar.
Где-нибудь в Execute необходимо вызвать метод Synchronize:

Код:

         Synchronize(ShowMeth);

Который обеспечит критическое выполение метода ShowMeth (критическая секция).