[byk]

Код:

if Query1.Active then
  Query1.Close;
Query1.ParamByName('date1').DataType:= ftDateTime;
Query1.ParamByName('date1').Value:=DateTimePicker1.DateTime;
Query1.ParamByName('date2').DataType:= ftDateTime;
Query1.ParamByName('date2').Value:=DateTimePicker2.DateTime;
Query1.ParamByName('idprz1').DataType:= ftInteger;
Query1.ParamByName('idprz1').Value:=Edit3.Text;
Query1.ParamByName('type1').DataType:= ftInteger;
Query1.ParamByName('type1').Value:=Edit4.Text;
Query1.Open;