Удаление записей в ADOTable

var
  ActiveState: Boolean;
begin
  with MainForm do
  begin
    ActiveState := ADOTable.Active;
    DBGrid.DataSource.DataSet.DisableControls;
    if not ActiveState then
      ADOTable.Active := True;
    ADOTable.First;
    while not ADOTable.Eof do
    begin
      //...
      if DeleteRecCheck.Checked then
        ADOTable.Delete  //ADOTable.DeleteRecords(arCurrent)
      else
        ADOTable.Next;
    end;
    ADOTable.Active := ActiveState;
    DBGrid.DataSource.DataSet.EnableControls;
  end;
end;

var
  ActiveState: Boolean;
begin
  with MainForm do
  begin
    ActiveState := ADOTable.Active;
    DBGrid.DataSource.DataSet.DisableControls;
    if not ActiveState then
      ADOTable.Active := True;
    ADOTable.First;
    while not ADOTable.Eof do
    begin
      //...
      ADOTable.Next;
    end;
    if DeleteRecCheck.Checked then
      if ADOTable.Filtered then
        ADOTable.DeleteRecords(arFiltered)
      else
        ADOTable.DeleteRecords(arAll);
    ADOTable.Active := ActiveState;
    DBGrid.DataSource.DataSet.EnableControls;
  end;
end;

      MainForm.ADOTblAnkets.Filtered:=false;
      MainForm.ADOTblAnkets.First;
      while not MainForm.ADOTblAnkets.Eof do
        MainForm.ADOTblAnkets.Delete;

procedure DoRecordsetDelete(DataSet: TCustomADODataSet; AffectRecords: TAffectRecords);
begin
  with DataSet do
  try
    Recordset.Delete(AffectRecordsValues[AffectRecords]);
    if (CacheSize > 1) and (PRecInfo(ActiveBuffer).RecordNumber <> 1) then
    begin
      Recordset.MovePrevious;
      Recordset.MoveNext;
    end;
    if Recordset.RecordCount > 0 then //здесь тупо вводим дополнительную проверку
      Recordset.MoveNext;
  except
    on E: Exception do
    begin
      Recordset.CancelUpdate;
      DatabaseError(E.Message);
    end;
  end;
end;