Q_COMERCIOS.SQL.Text:= 'Select * From ORDENES Where FECHA Between :F1 And :F2 AND NOMBRE = :Nom';
Q_COMERCIOS.ParamByName('F1').Value:= FORMATDATETIME('DD/MM/YYYY',DateTimePicker1.Date);
Q_COMERCIOS.ParamByName('F2').Value:= FORMATDATETIME('DD/MM/YYYY',DateTimePicker2.Date);
Q_COMERCIOS.ParamByName('Nom').Value:= NOMBRE.Text;
Q_COMERCIOS.Open;