[Ekler1]

но сделал немного по другому

Код:

begin
 with ADOQuery1 do
 begin
   Filter :='Data=#'+DateToStr(DateTimePicker1.Date)+'#';
   Filtered :=True;
 end;

lmikle: пользуемся тегами!