Существует одно свойство, не упомянутое в файлах помощи (оплошность, господа программисты из Borland), имеющее имя SelectedRows, и вот как его можно использовать:



procedure TfrmGrid.Button1Click(Sender: TObject);
var
i: integer;
begin
For i := 0 to DBGrid1.SelectedRows.Count - 1 do
begin
Table1.GoToBookmark(TBookmark(DBGrid1.SelectedRows[i]));
Table1.Delete;
end;
end;