Problemas con filter

[vroa74]

Estoy usando una base de datos local, y necesito poder filtrar un intervalo de fecha estoy usando las siguientes sentencias:

Form1.table1.filter := 'Fecha >= '+DateTimeToStr(DateTimePicker1.Date)+'And Fecha <= '+DateTimeToStr(DateTimePicker2.Date)+'';
= >no funciona


con:= con + 'Fecha >= ';
con:= con + DateToStr(DateTimePicker1.Date);
con:= con + ' And ';
con:= con + ' Fecha <= ';
con:= con + DateToStr(DateTimePicker2.Date);
Form1.table1.filter :=con;
= >no funciona

Form1.table1.filter := 'Fecha >= ''06/02/2007''And Fecha <= ''07/02/2007''';
= > si funciona


Form1.table1.filter := 'Fecha >= '''+DateTimeToStr(DateTimePicker1.Date) + ''''+'And'+'Fecha <= ''' + DateTimeToStr(DateTimePicker2.Date) + '''';

= >no funciona
todo con la siguiente linea

Form1.table1.filtered := true;

Tambien me gustaria saber como puedo obtener la fecha del sistema he buscado y no se he visto fecha y hora solo necesito la fecha.