Gauge1.MinValue:= 0;
    Gauge1.MaxValue:= j;
    Gauge1.Progress:= 0;
    k:= 0;
    for i := 1 to j do
    begin
      .....
      Gauge1.Progress:= i;
      inc(k);
    end;

以ADOCommand元件和ADODataSet元件舉例﹐ADOCommand負責取得資料表的筆數﹐請先將ADOCommand1的CommandText屬性值設為﹕
Select Count(*) From 資料表名稱
ADODataSet負責資料的存取﹐程式碼如下﹕
procedure TForm1.FormActivate(Sender: TObject);
begin
  ProgressBar1.Max := ADOCommand1.Execute.Fields.Item[0].Value;
end;    procedure TForm1.ADODataSet1FetchProgress(DataSet: TCustomADODataSet;
  Progress, MaxProgress: Integer; Var EventStatus: TEventStatus);
begin
  ProgressBar1.Position := Progress;
end;    procedure TForm1.ADODataSet1FetchComplete(DataSet: TCustmADODataSet;
  Const Error: Error; Var EventStatus: TEventStatus);
begin
  1End := GetTickCount;
  ShowMessage('總共花了' FloatToStr((1End-1Start)/1000.0) '秒');
end;