[Zhigalov]

Написал вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var Filter:String;
begin
      Filter  := 'SimpleTime>='''+DateTimeToStr(DateTimePicker1.DateTime)
     +''''+' and '+'SimpleTime<='''+DateTimeToStr(DateTimePicker2.DateTime)+'''' ;
       Filter  := 'SimpleTime>='''+DateTimeToStr(DateTimePicker3.DateTime)
     +''''+' and '+'SimpleTime<='''+DateTimeToStr(DateTimePicker4.DateTime)+'''' ;
  ADOQuery1.Active:=False;
  ADOQuery1.Filter := Filter;
  ADOQuery1.Filtered := true;
  ADOQuery1.Active := true;

Админ: Пользуемся тегами, иначе последуют санкции!

DateTimePicker1 06.07.2011
В DateTimePicker2 06.07.2011

В DateTimePicker3 12:56:26
В DateTimePicker4 13:00:00


Вобще не чего не выдает.

В запрос вабще не понимаю как данные закинуть с эдитов дапустим.