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 fecha between :Fechain and :Fechafin');
ADOquery1.Parameters.ParamByName('Fechain').Value:=fecha1;
ADOquery1.Parameters.ParamByName('Fechafin').Value:=fecha2;
ADOquery1.Open;