어떤 진행상황을 보고자 다음과 같이 했습니다.

     ProgressBar1->Position = 0;
     while(!TAlpa2001->Eof){
       j++;
       ProgressBar1->Position = (TProgressRange)((j/TAlpa2001->RecordCount)*100);
       이런 저런 작업들...
     }

그런데 프로그램을 실행시키면 다운될것 같이 멈추었다가

상황이 완료되면 프로그래스 바는 Max까지 되어있습니다.

프로그래스바가 점점 카운트되어 올라가는것을 볼수가 없네요.

어떻게 해야 될지..