Hola
Como dije anteriormente, yo no me complicaria la vida, lo haria asi:
De la paleta Win32, selecciona el DateTimePicker y coloca
dos en el form.
Pones este codigo y ya:
Código Delphi
[-]
procedure TForm5.ComboBox1Change(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:= 'select total from dia where Fecha >= '+DateToStr(DateTimePicker1.Date)+' AND Fecha <= '+DateToStr(DateTimePicker2.Date);
adoquery1.Open;
end;
Como podras ver.
1- NO hay variables
2- NO hay paremetros
3- No hay trasformaciones de ningun tipo.
4- Mucho mas legible.
Saludos