St.Read(_Left,2);St.Read(_Right,2);
происходит чтение отдельно правого и левого каналов,
а в следующей строке - их суммирование
Signal := Signal*_Sglag + (1 - _Sglag)*(abs(_Left) + abs(_Right))/2;
введите ещё одну переменную (например, Signal_2) и по образу и подобию сделайте отдельную обработку.