problema de eliminacion

[nikotina]

Hola amigos. tengo un procedimiento sobre un dbgrid el cual elimina las filas que el usuario selecciona. El problema es que solo elimina una fila y luego da un error "query4: record no found". el codigo es el siguiente:

Código Delphi [-]
procedure Tgen_oc_concurso.BitBtn5Click(Sender: TObject);
var i,j:integer;
begin
    if DBGrid1.SelectedRows.Count>0 then
    begin
      with DBGrid1.DataSource.DataSet do
      begin
          for i:=0 to DBGrid1.SelectedRows.Count-1 do
          begin
            GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
            query4.Delete;
          end;
      end;
    end,
end;

Si