Error en código Sql

[radenf]

Probé lo que Uds. me señalaron y descubrí que el código está correcto, pero al aplicar un filtro que sólo muestra los registros de la semana que se quiere ver en el TMSDBPlanner, por alguna razón modifica el valor del DBEditQuery1 y no permite leerlo.
Adjunto el código del filtro, que me fue enviado por la gente de soporte deTMS y que siempre me había funcionado, en este caso bloquea el programa y como no tengo idea que es lo que hace, a lo mejor Uds. me pueden señalar cómo corregirlo.
Este filtro evita que cuando la Tabla.Citas tenga demasiados registros se enlentezca la ejecución del programa.

Código Delphi [-]
procedure TCitaciones.DBDaySource1SetFilter(Sender: TObject);
var
sd1,sd2:string;
begin
sd1 := DateToStr(DBDaySource1.Day);
sd1 := #39+sd1+#39;
sd2 := DateToStr(DBDaySource1.Day+6);
sd2 := #39+sd2+#39;
TablaCitas.Filter:=  'Startime > '+sd1+' and Endtime < '+sd2;
TablaCitas.Filtered := True;
end;

Un gran saludo y muchas gracias por su ayuda