delphi 进度条
1.progressbar
进程控制条
主要的属性：Max，Min，Step
与Timer一起使用
while(pb1.Position
pb1.StepIt;
end;
2.Gauge
与progressbar用途完全相同，所不同的是Gauge具有多种表现形式，如圆形，方形等。
主要的属性：Max，Min，Process
与Timer一起使用
procedure TForm1.tmr1Timer(Sender: TObject);
begin
g1.Progress := g1.Progress + 1;//g1表示Gauge控件
end;
原文：https://www.cnblogs.com/jijm123/p/13445605.html