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