List Index Is Out Of Bounds

Caros.
Segue o trecho dó código.

procedure TFormPrincipal.SpeedDeleteClick(Sender : TObject);
begin
  { Excluir }
  if DMform.cdsItem.FieldByName('FLAG_BAIXA').value = '1' then
  begin
    if Application.Messagebox('Este produto já foi pedido, deseja continuar a exclusão?',
      'Informação', MB_ICONINFORMATION + MB_YESNO) = IDno then
    Exit;
  end;
  if Application.MessageBox('Deseja excluir a cotação?',
    'Confirmação', MB_ICONQUESTION + MB_YESNO) = IDYES then
  begin
    begin
      DMForm.cdsCota.Delete;
      DBNav1.Enabled := True;
      DBNav2.Enabled := True;
      Inclusao := False;
      GrupoCotacao.Enabled := Inclusao;
      LimparDados;
    end;
      PageControl1.ActivePage := tsGridCotacao;
      sbMontaQuery.Click;
  end;
end;

Gostaria de saber como posso reindexar o índice após a exclusão, tendo em vista que ao final gera o erro "List Index Is Out Of Bounds"?

Obrigado!