[Вован]

Все спасибо, разобрался сам. Здесь хотя тип параметра Дата
все равно передавать значение параметру нужно как строку.

DataModule1.QVac.Parameters.ParamByName('date1').V alue:=DateToStr(DateTimePicker1.Date);