Существует одно свойство, не упомянутое в файлах помощи (оплошность, господа
программисты из Borland), имеющее имя SelectedRows, и вот как его можно
использовать:
procedure TfrmGrid.Button1Click(Sender: TObject);
var
i: integer;
beginFor i := 0 to DBGrid1.SelectedRows.Count - 1 dobegin
Table1.GoToBookmark(TBookmark(DBGrid1.SelectedRows[i]));
Table1.Delete;
end;
end;