для этого, как я понимаю и нужен "shift".
но не понимаю, что как преобразовать число 15 целого типа в данные типа "TSLab.DataSource.Interval" для передачи в качестве параметра процедуре "CompressTo"