begin
Table1.Open;
Table2.Open;
Table1.First;
dx:=Table1.Recordcount;
r:=StrToInt(Edit3.Text);
for dz:=1 to dx do
Begin
Table1.Filter := 'FECHA >= '+DateToStr(DateTimePicker1.DateTime)+' AND FECHA <= '+DateToStr(DateTimePicker2.DateTime);
Table1.Filtered := True;
end;
begin
Table2.Insert;
Table2.Fieldbyname('FECHA').asDate:=Table1.Fieldbyname('FECHA').asDate;