Equalizer rauschen und verzerren

[H4ndy]

Ohne mich mit der Materie auszukennen, vermute ich den Fehler hier:

Delphi-Quellcode:

procedure TFmenue.UpdateEQ(b, pos: integer);
var i: integer;
begin
        eq.lBand := b;    // get b band values
        i := 10;
        BASS_FXGetParameters(fxEQ, @eq);
        eq.fGain := i - pos;
        BASS_FXSetParameters(fxEQ, @eq);
end;

Debugge das mal und ueberpruefe, was fuer ein Gain-Wert benutzt wird.
Wenn der Gain zu hoch ist, verzerrts natuerlich nur noch.