Ограничение ввода данных в таблицу

[KatCH]

Доброго времени суток! Подскажите пожалуйста, каким образом можно реализовать ограничение ввода данных в таблицу по некому признаку? Т.е. к примеру, за 26.03.2012 можно ввести только 20 записей.
Подробней:
Таблица состоит из двух полей:
-ФИО
-Дата
В идеале, за определенный день месяца+года, возможным предоставлялось ввести только 20 записей.
Как я понимаю, нужно сортировать таблицу по полю "дата", и если этот признак =20, выбивать меседж плана "На это число уже имеется 20 записей, след. доступная дата хх.хх.хххх ", и помоему, это реализуется с помощью sql-запроса, помогите написать его. Заранее благодарен.

p.s.БД Access. Подключение через AdoConnection, набор данных в ADOTable.

[_SERGEYX_]

Где-то хранятся даты начала и окончания времени ограничений ввода. Например, в настройках программы.
Перед добавлением записи:

var FDateBegin, FDateEnd: TDateTime;
  //...

 FDateBegin:=......... ;//здесь начатьная дата
 FDateEnd:=......... ;//здесь конечная дата

  with Query1 do
  begin
  Close;
  SQL.Text := 'SELECT count(*) FROM your_table ' +
                        'WHERE date BETWEEN :date_begin AND :date_end;';
  ParamByName('date_begin').AsDateTime := FDateBegin;
  ParamByName('date_end').AsDateTime := FDateEnd;
  Open;
  end;
 if Query1.Fields[0].AsInteger >= 20 then
  begin
    showmessage('.............');
    exit;
  end;