У много вызовов ...я например сделал так
//Вывод формы с прогрессбаром
procedure Progress(i,BegStr,EndStr:integer);
begin
FormProgress.Refresh;
FormProgress.Cursor:=crHourGlass;
FormProgress.Label1.Refresh;
FormProgress.Label1.Caption:='Ожидайте окончания расчета !';
FormProgress.Label2.Refresh;
FormProgress.Label2.Caption:='Выполнено :';
FormProgress.Label3.Refresh;
FormProgress.Label3.Caption:=IntToStr(ROUND(100*i/(EndStr-BegStr))) + ' %';
FormProgress.ProgressBar1.Position:= ROUND(100*i/(EndStr-BegStr));
end;