Daj sobie z tym spokój. Nie sądzę by Twój program tak długo się ładował, że aż potrzebny jest pasek ładowania. To tylko wydłuży czas uruchamiania programu, a tego nikt nie lubi. Możesz to jednak zrobić umieszczając na formularzy komponent TTimer i w nim sterując paskiem ładowania:
Timer1->Enabled = true; // włącza zegar false wyłącza
Timer1->Interval = 100; // określa częstotliwość tykania zegara 1000 = 1 sekunda
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(ProgressBar1->Position < 90) ProgressBar1->Position += 10;
else
{
Timer1->Enabled = false; // zatrzymuje zegar
ProgressBar1->Position = 0; // zeruje pasek
ProgressBar1->Visible = false; // ukrywa pasek
}
}