Fitrar por fecha actual

[javimax182]

Gracias a todos por el apoyo que me estan dando. Pero ahora tengo dos errores


En el filtrado por por las ventas del dia actual, me salta este error Type mismatch in expresion
Este es el codigo que le puse:

With QVentas do begin
Close;
sql.clear;
sql.add('select * from ResumenVentas where FechaCompra like :fecha');
parambyname('fecha').asdate:= date;
execsql;
Open;
end;

En el de las ventas del mes me salta este error invalid argument to date encode
Este es el codigo que le puse:

DecodeDate(Now, AYear, AMonth, ADay);
FechaInicial := EncodeDate(AYear, AMonth, 1);
FechaFinal := EncodeDate(AYear, AMonth, 31);
With QVentas do begin
Close;
SQL.Clear;
sql.add('select * from ResumenVentas where FechaCompra between :fechainicio and :fechafin');
parambyname('fechainicio').asdate:= FechaInicial; //Primer dia del mes
parambyname('fechafin').asdate:= FechaFinal; //Final del mes
execsql;
Open;
end;

Yo no les exijo nada, solo les estoy pidiendo ayuda. Les agradesco por todo lo que me ayudaron hasta ahora. Si me pueden seguir ayudando, mejor.