if DBGrid1.SelectedRows.Count > 0 then begin with DataSource1.DataSet do begin for iLoop := 0 to DBGrid1.SelectedRows.Count - 1 do begin GotoBookmark(pointer(DBGrid1.SelectedRows.Items[iLoop])); DataSource1.delete; end; // for iLoop end; // with DataSource1.DataSet end;