Hola Sr.Scorpion
Asi:
Código Delphi
[-]
ADOQuery1.Open;
ADOQuery1.Filter := 'Fecha = '+DateToStr(Edit1.Text);
ADOQuery1.Filtered := True;
o con un datetimepicker
asi:
Código Delphi
[-]
ADOQuery1.Open;
ADOQuery1.Filter := 'Fecha = '+datetimepicker1.date;
ADOQuery1.Filtered := True;
Saludos