query.clear;
query.SQL.ADD(select * from compañia1 where fechavencimiento1 between :FECHA_INI and :FECHA_FIN order by fechavencimiento1);
query.parambyname('FECHA_INI').AsDate := DateTimePicker1.date;
query.parambyname('FECHA_FIN').AsDate := DateTimePicker2.date;
query.open;