Tarih koşulunda verdiğim tarihi tanımıyor

Aşağıdaki kodda tarih koşulu bu şekilde olduğu zaman değer sifir geliyor, tarih koşulu vermediğimde sorun yok.

ADOQuery2.SQL.Add('select stok8.StokNo as stno, sum(stokhar8.HareketMiktari) as girismiktari from stokhar8 ' +
                  'left join stok8 on stokhar8.StokNo = stok8.stokno where stokhar8.HareketTipi < "100" ' +
                  'and stokhar8.HareketTarihi <= ' + DateToStr(DateTimePicker1.Date) +
                  ' GROUP BY stok8.StokNo');

Bunu kendinde test edebilirdin. ilk olarak Veri tabanını hazırladığın programda Tarih sorgusu olan bir sorgu çalıştırabilirsin. Mesela  
select * from tablon where 01.06.2007 gibi eğer bu kod çalışıyor ise delphiden gelen kodu kontrol etmeni öneririm Datetostr ile elde ettiğin tarih 01/06/2007 şeklinde geliyor olabilir genelde hatalar bu yüzden kaynaklanıyor karakter sorunu yani yada "02.06.2007" şeklinde yazman gerekebilir bu kullandığın veri tabanına göre değişir.