Bass.dll Equalizer

[Nils_13]

Delphi-Quellcode:

var
  BassEqulisierReverb        : TBassEqulisierReverb;
  
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  BassEqulisierReverb := TBassEqulisierReverb.Create;
end;

procedure TfrmMain.TrackBar1Change(Sender: TObject);
begin
  if BASS_ChannelIsActive(chan) = BASS_ACTIVE_PLAYING then
  begin
    BassEqulisierReverb.Level    := TrackBar1.Position;
  end;
end;

Warum passiert nichts, wenn ich die TrackBar verschiebe ?