[[Caral]]

Hola
Bueno ahora si hablamos el mismo idioma.
Si vas a vanzado podras adjuntar un archivo, coloca la base de datos y el programa, es mejor si lo haces en un zip.
Esta es una opcion ai podre hacerlo y reenviartelo, la otra:
esto es lo que tienes:

Código Delphi [-]
b:=combobox1.Text;
     a:=combobox1.Items.IndexOf(b)+1;
     fecha1:='01/'+formatfloat('00',a)+'/'+'2007';
     fecha2:='31/'+formatfloat('00',a)+'/'+'2007';
     ADOquery1.Close;
     ADOquery1.SQL.Clear;
     ADOquery1.SQL.Add('select fecha from ciber');
     ADOquery1.SQL.Add(' where fecha between :Fechain and :Fechafin');
     ADOquery1.Parameters.ParamByName('Fechain').Value:=fecha1;
     ADOquery1.Parameters.ParamByName('Fechafin').Value:=fecha2;
     ADOquery1.Open;

Que te muestra, La fecha.
Esto otro:

Código Delphi [-]
b:=combobox1.Text;
     a:=combobox1.Items.IndexOf(b)+1;
     fecha1:='01/'+formatfloat('00',a)+'/'+'2007';
     fecha2:='31/'+formatfloat('00',a)+'/'+'2007';
     ADOquery1.Close;
     ADOquery1.SQL.Clear;
     ADOquery1.SQL.Add('select fecha, total, costo, impuesto, ganancia from ciber');
     ADOquery1.SQL.Add(' where between :Fechain and :Fechafin');
     ADOquery1.Parameters.ParamByName('Fechain').Value:=fecha1;
     ADOquery1.Parameters.ParamByName('Fechafin').Value:=fecha2;
     ADOquery1.Open;

Hay diferencia, la ves?
Saludos