problema Borrar varias filas de dbgrid

[Kenobi]

Hola amigos....
buscando en el foro encontre una solucion para recorrer la filas seleccionadas de un tmsdbgrid, sin embargo me genera errores en caso de eliminar dichas filas....

Código Delphi [-]
for i := 0 to Grid.SelectedRows.Count - 1 do
Begin
Grid.GotoSelection(i);
consulta.delete
End;
Grid.SelectedRows.Clear;

si marco filas intercaladas me elimina la siguiente a la marcada, luego luego elimina cosas que no quiero y deja de eliminar otras que si quiero

creo que en el delete cuando elimino un registro el cursos salta al siguiente y pues zasss tambien lo borra, en todo caso les pregunto a ver que me dicen, antes de aplicar una solucion fea(algo como recorrer guardando los indices en un array para luego recorrer el array y eliminar las filas que coincidan con el indice del array)


Gracias por su ayuda....