[Yurk@]

Код:

ADOQuery2.SQL.Text:='DELETE FROM Продажи WHERE (Month(Продажи!дат))=10';
ADOQuery2.ExecSQL;