[ilang]

ADOQuery2.SQL.Add('where [date]='''+datetostr(DateTimePicker1.date)+'''');

Конечно не будет запрос работать. Такие сложные конструкции из нескольких кавычек )
Используй QuotedStr или где надо вставить кавычку ставь #39