设置进度条

//获取其他的进度，设置当前的总进度。
gauDo.Progress:= 20 (80*nDownPosi div 100 ); //jack 0626 30 + ( 20*nDownPosi div 100 ); //nDownPosi：0-100

//在自定义过程中使用。每执行一段，设置一个进度。
gauDo.Progress:=80+20*aCurrent div aCount; //aCurrent：0-100  aCount：100； 80：原来的进度。

//在数据集中使用
gauDo.Progress :=20 + Trunc(50*(ClientDataSet1.RecNo / ClientDataSet1.RecordCount));//20：原来的进度