Hola
Vamos por partes, que no entiendes, donde colocas la consulta.
Veamos, esto es lo que tienes:
Código Delphi
[-]
begin
Table1.Edit;
dx:=Table1.Recordcount;
Table1.First;
r:=StrToInt(Edit3.Text);
for dz:=1 to dx do
begin
if ((DateTimePicker1.Date<=Table1.Fieldbyname('FECHA').asstring)and (DateTimePicker2.Text>=Table1.Fieldbynam('FECHA').asstring) Then
begin
Table2.Insert;
Table2.Fieldbyname('FECHA').asstring:=Table1.Fieldbyname('FECHA').asstring;
Código Delphi
[-]
if
Table1.Fieldbyname('FECHA') <= (DateTimePicker1.Date)
and
Table1.Fieldbynam('FECHA') >= (DateTimePicker2Date)
Then
No se esto de los parametros me incomoda un poco, lo prefiero por sql.
Espero te ayude un poco.
Saludos