Busqueda por fecha IBquery

[mjjj]

hola amigos, necesito que me echen una mano con un codigo que me esta aproblemando

Utilizo delphi 2006 conectado a firebird 2.0. Tengo una tabla llamada Registros, dentro de la cual existe un campo llamado Fecha. Este tiene formato DATE (EJ: 18-10-2007)

En un TForm tengo 2 TCalendar y un TIBQuery... Necesito hacer una consulta a la tabla registros, donde pregunto por coincidencias con respecto al campo Fecha.

Ahora bien.... la consulta se hace con respento a los dias seleccionados en los TCalendar... es decir, desde que dia (Calendar1) hasta que fecha Calendar2).

Lo tengo funcionando de la siguiente manera....

Código Delphi [-]
ibquery1.Close;
ibquery1.SQL.clear;
ibquery1.sql.add('Select * from Registros');
ibquery1.sql.Add('where dia = :fecha');
ibquery1.parambyname('fecha').asdatetime:=calendar1.CalendarDate;
 
J:=(daysbetween(calendar1.calendardate,calendar2.calendardate));
for I := 1 to J do    // dia
begin
ibquery1.sql.add('OR dia = :fecha'+inttostr(I));
ibquery1.parambyname('fecha'+inttostr(I)).asdatetime:=calendar1.CalendarDate+I;
end;
 
ibquery1.open;

... funciona bien, hasta que tengo que hacer una consulta que va desde 2 meses distintos, es decir desde (calendar1) 28-08-2007, hasta (calendar2) 5-10-2007.

Ahora bien, ni siquiera he pensado en cuando tenga que hacer una consulta que involucre distintos años....

Alguien me puede ayudar con alun codigo que me solucione mi problema....

muchas gracias por su tiempo

saludos