Вот так для даты можно попробовать:
Код:
procedure TFindeUnit.btn1Click(Sender: TObject);
begin
DataModule1.ADOTable1.Filtered:=false;
if Edit1.Text='' then exit;
DataModule1.ADOTable1.Filter:=Format('Date1 between DateValue(%s) and DateValue(%s)',[DateToStr(DateTimePicker1.Date),DateToStr(DateTimePicker2.Date)]);
DataModule1.ADOTable1.Filtered:=true;
end;
Но с датами там заморочки, может и не прокатить.