1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

procedure Readdata;
var
  PeakBuf: array[0..176400] of integer;  //=1sekunde daten
  Data: ^smallint;
  //lc:integer;
  BufLen,i: Integer;
  counter: integer;
  peaksL: array of smallint;
  peaksR: array of smallint;
begin
    setlength(peaksL, 2600); //kann aber auch halb so gross sein wie Peakbuf
    setlength(peaksR, 2600); //kann aber auch halb so gross sein wie Peakbuf
    counter:= 0;
    BufLen:= Bass_ChannelGetData(HStream, @PeakBuf, 176400);
    Data:= @PeakBuf;
    
    while (buflen > 0) do
    begin
        if (Data^) > pl then pl := (Data^)else
        if (Data^) < pl then pl := (Data^);    // Get LeftPeak
        Inc(Data);
        if (Data^) > pr then pr := (Data^)else
        if (Data^) < pr then pr := (Data^);    // Get RightPeak
        Inc(Data);
        BufLen:= BufLen -4 ;

        if counter > 2600 then break;
        
        peaksL[counter]:= pl;
        peaksR[counter]:= pr;

        inc(counter);
        pL:= 0;
        pR:= 0;
    end;

//ab hier übergibst du die Daten an die zu speichernde neuen wave
//wenn Du zum Beispiel Normalize durchführen willst!
//müsstest Du die Daten entweder um einen bestimmten Wert anheben oder senken
//z.B.
if peaksL[i]>=32768 then
   newwavpeak[i]:= peaksL[i]-100;

//eine Pause bzw. "Stille" währe dann so
 newwavpeak[i]:= 0;

//mal so auf die schnelle!
//Wenn der Puffer PeakBuf ausgelesen ist einfach, neuepos um 1 erhöhen, dann wieder von vorn anfangen mit lesen, bis stream ende. 
end;					

1:

BASS_ChannelSetPosition(DeinStream, neupos, BASS_POS_BYTE);