StringGrid и DBGrid. Очистка DBGrid.

...
  DataSet.DisableControls;
  try
    
    //Переносим данные из StringGrid'а в набор данных
    //если это, конечно, надо :-)
    for iRow := StringGrid.FixedRows to StringGrid.RowCount - 1 do begin
      DataSet.Insert;
      // Нужно подставить вместо имен FieldN имя поля
      DataSet['Field1'] := StringGrid.Cells[1, iRow];
      DataSet['Field2'] := StringGrid.Cells[2, iRow];
      ...
      DataSet.Post;
    end;
 
  finally
    DataSet.EnableControls;
  end
...

with DataSource.DataSet do
 
DisableControls;
  try
    //Чистим набор данных, если это, конечно, надо
    First;
    while not Eof do
      Delete;
      Post;
finally
    EnableControls;

AdoTable1.DeleteRecords(arAll);

procedure TForm14.Button1Click(Sender: TObject);
begin
with DataSource1.DataSet do
DisableControls;
  try
    First
    while not Eof do
     Delete;
    Post;
finally
  EnableControls;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
    dbgrd1.DataSource.DataSet.DisableControls;
  try
    dbgrd1.DataSource.DataSet.First;
    while not dbgrd1.DataSource.DataSet.Eof do
     dbgrd1.DataSource.DataSet.Delete;
  finally
  dbgrd1.DataSource.DataSet.EnableControls;
 
  end;
  ShowMessage('Записи удалены!');
end;
end.