delphi中如何将dbgrid中的全部数据写入sql2000的一个表中，每次先将这个表中数据清空再写入。

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  adodel.Close;
  ADODel.SQL.Text := 'delete from TableName';
  ADODel.ExecSQL;
  ADOQuery1.First;
  //实际上是操作DataSet
  while not ADOQuery1.Eof do
  begin
    ADODel.Close;
    ADODel.SQL.Clear;
    ADODel.SQL.Text := Format('Insert Into TableName(Field1, Field2) Values (%s, %s)',
                       [QuotedStr(ADOQuery1.Fields[0].AsString),
                       QuotedStr(ADOQuery1.Fields[1].AsString)]);
    ADODel.ExecSQL;
    ADOQuery1.Next;
  end;
end;

对dbgrid.DataSource.DataSet进行遍历，依次写入