1、设定 DBGridEh-->option-->dgMultiSelect:=true
2、删除代码如下：
var
SeCount,i:Integer;
begin
SeCount:=DBGridEh2.SelectedRows.Count; //选中的数量
for i:=0 to SeCount-1 do
with DBGridEh2.DataSource.DataSet do
GotoBookmark(DBGridEh2.SelectedRows.items[i]);
Delete;
Next;
end;