1.progressbar
进程控制条
主要的属性：Max，Min，Step
与Timer一起使用
while(pb1.Position<pb1.Max) do //pb1是progressbar进度条控件
begin
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;