Multiselect DBGRID

[kainchu3102]

Buenas Tardes Gente, estoy estancado en medio de algo no puedo seguir, sepan disculparme si soy novato, tengo mi código para eliminar varias filas de un DBGRID con Multiselect, pero por alguna razon no me esta funcionando le agradecería su ayuda.

Código Delphi [-]
procedure TFORMABMCURSOS.BitBtn2Click(Sender: TObject);
  var
  X: Integer;

begin
  if DBGABMCURSO.SelectedRows.Count = 0 then
  begin
  Exit;
  ShowMessage('paso 1')
  end
  else
  begin
  for X := 0 to DBGABMCURSO.SelectedRows.Count -1 do

       With MDATOS_DANZA.FDQABMCUOTAS do
      Begin
      DBGABMCURSO.DataSource.DataSet.GotoBookmark(TBookmark(DBGABMCURSO.SelectedRows.Items[X]));
       SQL.Clear;
       SQL.Add ('DELETE FROM cuotas WHERE id_cuo = :ID_CUOE');
       Params.ParamByName('ID_CUOE').AsInteger := X ;
       ExecSQL;
       if RowsAffected = 1 then
       begin
          MDATOS_DANZA.FDTCUOTAS.Refresh;
          ShowMessage('paso 2')
       end;
         //FORMRESULTADOS.DBGRESULTADOS.DataSource.DataSet.Refresh;
       end;
          ShowMessage('paso 3')

  end;


end;

ese es el codigo