coincido con egostar, se ve raro el for pero bueno, para las horas en lugar de tanta conversion te podria servir:
Código Delphi
[-]
Fecha1.DateTime := Trunc(Fecha1.DateTime);
Fecha2.DateTime := Trunc(Fecha2.DateTime) + 0.99999; Fecha2.DateTime := Trunc(Fecha2.DateTime) + 1;
algo que me pasa con ciertos manejadores de bases de datos es que al usar like no me toma el primero o el ultimo (access no me toma el ultimo), lo mas facil es agregar o quitar un dia segun lo que falte o usar <= y >= en lugar del like