[Mustang666]

Сообщение от NumLock

один из вариантов:

Код:

Query1.SQL.Text:='SELECT DOB, LastName, FirstName FROM People WHERE (EXTRACT(MONTH FROM DOB) = '+Edit1.Text+')';

Спасибо большое