新增一個圖片式的進度列

有ProgressBar、Gauge、LMDProgressFill及cxProgressBar元件可用，其中若要有底圖可用LMDProgressFill，並在屬性FillObject用Bitmap的方式，並記得TileMode改為tmStretch

procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress,
  ProgressMax: Integer);
begin
  Gauge1.MaxValue :=ProgressMax;
  Gauge1.Progress:=progress;

  LMDProgressFill1.MaxValue :=ProgressMax;
  LMDProgressFill1.UserValue := PROGRESS;

  cxProgressBar1.Properties.Max:=  ProgressMax;
  cxProgressBar1.position:=progress;
end;