procedureTAddProgressbarFrm.AddProgressToStatus;vari,Count,StatusPanelWidth:Integer;beginFProgress:=TProgressbar.Create(AddProgressbarFrm);{定义进程条的最大值}Count:=3000;StatusPanelWidth:=Status.Panels.Items[2].Width;{改变进度条宽度}Status.Panels.Items[2].Width:=150;Status.Repaint;withFProgressdobeginTop:=FStatusDrawRect.T