DELPHI开发，导入数据到数据库时，怎么做导入的进度条

DELPHI开发，导入数据到数据库时，如何做导入的进度条
DELPHI开发，导入EXCEL数据到sql server数据库时，如何做导入的进度条

[解决办法]

Delphi(Pascal) code

procedure TfrmImportData.btn2Click(Sender: TObject);var  Query: TADOQuery;  i: Integer;begin  i := 0;  try    try      Query := TADOQuery.Create(nil);      Query.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + edtFileName.Text + ';Extended Properties="Excel 8.0;HDR=Yes;IMEX=1";Persist Security Info=False';      Query.Close;      Query.SQL.Clear;      Query.SQL.Add('Select * from [Sheet1$]');      Query.Open;      ProgressBar1.Max := Query.RecordCount;      while not Query.Eof do      begin        //写入SQL Server表的具体代码                inc(i);        ProgressBar1.Position := i;      end;    except      Application.MessageBox('数据导入数据库失败!', '错误', MB_OK + MB_ICONSTOP);    end;  finally    Query.free;  end;end;