[PhoeniX]

Код:

procedure Tf_ABP.N11Click(Sender: TObject);
var
  myQ: TADOQuery;
  i: integer;
begin
  myQ := TADOQuery.Create(nil);
  myQ.Connection := DataModule1.ADOConnection1;
  myQ.SQL.Clear;
  myQ.Parameters.Clear;
  myQ.sql.Text := 'Delete From AVR_List Where ID = :ID_AVR_List';
  for i := 0 to DBGrid1.SelectedRows.Count -1 do begin
    Q_AVR_List.GotoBookmark(Pointer(DBGrid1.SelectedRows[i]));
    myQ.Parameters.ParamByName('ID_AVR_List').Value := Q_AVR_List.FieldByName('ID').Value;
    myQ.ExecSQL;
  end;
  myQ.Close;
  myQ.Free; // Мусор не забываем убирать ;)
  Q_AVR_List.Requery;
end;

DBGrid1 замени на имя своего грида.