我想用进度条来控制下面的循环，时间进度上不知道怎么来控制，
请高手赐教：
for(aa1=1e-9;aa1<=0.001;aa1+=1e-9)
{
  R1max=0.0;       //将R1max清零

  for(B0=b1;B0<=b2;B0=B0+10)
  {

   R2max=0.0;    //将R2max清零

   for(s0=-1*s;s0<=s;s0=s0+5)
   {
    Application->ProcessMessages();
    x=L-B0;
    y1=aa1*(x-s0)+A2*(x-s0)*(x-s0)+A3*(x-s0)*(x-s0)*(x-s0)
       +A4*(x-s0)*(x-s0)*(x-s0)*(x-s0)+A5*(x-s0)*(x-s0)*(x-s0)*(x-s0)*(x-s0);

    x1=L+B0;
    y2=aa1*(x1-s0)+A2*(x1-s0)*(x1-s0)+A3*(x1-s0)*(x1-s0)*(x1-s0)
       +A4*(x1-s0)*(x1-s0)*(x1-s0)*(x1-s0)+A5*(x1-s0)*(x1-s0)*(x1-s0)*(x1-s0)*(x1-s0);
    R0=(y1-y2)*(y1-y2);

    if(R2max<R0)
      R2max=R0;
   }

   if(R1max<R2max)
      R1max=R2max;
  }

  if(Rmin>R1max)
  {
    Rmin=R1max;
    a01=aa1;
  }
}
不知道要怎么来显示循环执行的进度，我想过用Timer来控制，可是时间
上不知道怎么把握。请高手们指点一下！谢谢