Consulta TADOQuery con Fechas

[Leonard]

Hola Amigos..!!


Ante todo muchas Gracias, quisiera que me ayudaran con el siguiente problema:


Poseo las Tablas: T_Proveedor
T_Factura_Compra

y un TADOQuery: Q_Factura_Compra que posee los siguientes campos:


Cod_Factura
Cod_Proveedor
Fech_Factura
Sub_Total



En un Formulario poseo 2 Tcombobox que sirven de parametros:

CB_Año : Para Seleccionar un determinado año.
CB_Mes : pasar seleccionar un mes Correspondiente.


y ademas poseo una dbgrid la cual esta enlazada a Q_Factura_Compra


Quisiera realizar una consulta personalizada de todas las Facturas de compra de un mes y un Año determinado,
segun los parametros seleccionados por el usuario a travez de los TCombobox antes mencionados.

Lo estoy haciendo del siguiente modo pero no se como manejar los filtros por mes y año


With Mdatos.Q_Factura_Compra Do
Begin
Close;
parameters.AddParameter.Name := 'mes';
parameters.AddParameter.Name := 'ano';
Parameters.ParamByName('mes').DataType := ftDateTime;
Parameters.ParamByName('ano').DataType := ftDateTime;
Parameters.ParamByName('mes').Value := CB_Mes.Text;
Parameters.ParamByName('ano').Value := CB_ano.Text;
With Sql Do
Begin
Clear;
Add('Select * from T_Fact_Compra ');
Add('Where ((Fech_Factura= :mes)and(Fech_Factura= :ano)) ');
End;
prepared;
Open;
End;


Sucede que dice que el parametro es invalido, he tratado de usar la Funcion strtodatetime pero sucede lo mismo..



Se les Agracede la ayuda que me puedan prestar...!!