error de criterios

[douglas]

buenas chicos quiero hacer una consulta, donde necesito mostrar en un grid, todas las fechas que pertenecen al mes que el usuario elije, pero me da el siguiente error:


no coinciden los tipos de datos en la expresion de criterios

el codigo es el siguiente:

Código Delphi [-]
procedure TForm5.ComboBox1Change(Sender: TObject);
var
a:real;
b,fecha1,fecha2,anio:string;
begin
     anio:=getlocald;
     anio:=copy(anio,7,10);
     a:=combobox1.ItemIndex+1;
     fecha1:='01/'+formatfloat('00',a)+'/'+anio;
     fecha2:='31/'+formatfloat('00',a)+'/'+anio;
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select total from dia');
     adoquery1.SQL.Add(' where fecha between :Fechain and :Fechafin');
     adoquery1.Parameters.ParamByName('Fechain').Value:=fecha1;
     adoquery1.Parameters.ParamByName('Fechafin').Value:=fecha2;
     adoquery1.Open;
     
end;