procedure TForm1.DBUpdate(table: string);
var
  ADOQuery: TADOQuery;
  I, N: integer;
  StrFields: TStrings;
  StrSQL1, StrSQL2: string;
begin
  StrFields:= TStringList.Create;
  ADOQuery:= TADOQuery.Create(nil);
  ADOQuery.Connection := ADOConnection1;
  ADOQuery.SQL.Text := 'BEGIN TRANSACTION';
  ADOQuery.ExecSQL;
  ADOQuery.SQL.Text:= 'DELETE FROM ' + table;
  ADOQuery.ExecSQL;
  dbf1.TableName:= table;
  dbf1.Active := True;
  ListBox2.Items.Clear;
  For I:=  0  to DataSource1.DataSet.Fields.Count - 1  do begin
    ListBox2.Items.Add(DataSource1.DataSet.Fields[I].FullName);
    StrFields.Add(DataSource1.DataSet.Fields[I].DisplayName);
  end;
  StrSQL1 := 'INSERT INTO ' + table + ' (' ;
  For I:=  0  to StrFields.Count - 1  do
    StrSQL1:= StrSQL1 + '[' + StrFields.Strings[I] + '],';
  StrSQL1:= LeftStr(StrSQL1, Length(StrSQL1) - 1 ) + ') VALUES (';

  DataSource1.DataSet.First;
  ProgressBar1.Max := DataSource1.DataSet.RecordCount;
  For I:=  0  to DataSource1.DataSet.RecordCount - 1  do begin
    Application.ProcessMessages;
    Label1.Caption := IntToStr(I);
    StrSQL2:= StrSQL1;
    For N:=  0  to StrFields.Count - 1  do begin
      StrSQL2 := StrSQL2 + QuotedStr(DataSource1.DataSet.Fields[N].AsString) + ',';
    end;
    StrSQL2:= LeftStr(StrSQL2, Length(StrSQL2) - 1 ) + ')';
    ADOQuery.SQL.Text := StrSQL2;
    ADOQuery.ExecSQL;
    ProgressBar1.Position := I;
    DataSource1.DataSet.Next;
  end;
  ProgressBar1.Position :=  0 ;
  ADOQuery.SQL.Text := 'COMMIT TRANSACTION';
  ADOQuery.ExecSQL;

  StrFields.Free;
  ADOQuery.Free;
  dbf1.Active := False;
end;