[Last Living Man]

Убери StrToDate, положи на форму TDateTimePicker

Код:

Filter := 'Data_rojdenia > ' + DateToStr(DateTimePicker1.Date);