Работа с ProgressBar

[Кротяка]

При нажатии на одну из кнопок программа долго грузится, поэтому появилась необходимость добавления ProgressBar. Необходимо чтобы по ходу загрузки полоска ProgressBar'a двигалась.

[Vzlom]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ProgressBar1->Position = 0; // позицию на ноль
ProgressBar1->Max = 100; // правая граница
Timer1->Interval = 100; // интервал = 100 миллисекунд
Timer1->Enabled = true; // включаем таймер
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
ProgressBar1->StepIt(); // смещаем позицию прогрессбара
if(ProgressBar1->Position == ProgressBar1->Max) Timer1->Enabled = false;
 // если дошли до конца, то выключаем таймер
}

[Кротяка]

спасибо! работает!