ehlib ado 删除选中记录 的方法

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := DBGridEh1.SelectedRows.Count - 1 downto 0 do
  begin
    DBGridEh1.DataSource.DataSet.Bookmark := DBGridEh1.SelectedRows[I];
    DBGridEh1.SelectedRows.DeleteItem(I);//必须先删除书签，否则全部删除时，会报错
    ADOTable1.DeleteRecords(arCurrent);
  end;

end;