type
 TFFT8192 = array[0..4093] of single;
var
 data2: TFFT8192;  
.....
BASS_Init(-1, 44100, 0, Application.Handle, nil) ;
filename := 'C:\Users\oshin\Desktop\PlayVisualWanMp3\1.wav';
StreamWav := BASS_StreamCreateFile(FALSE, pchar(filename), 0, 0, BASS_STREAM_DECODE or BASS_STREAM_PRESCAN);

Bass_ChannelGetData(StreamWav, @data2, BASS_DATA_FFT8192);
for i := 0 to 4093 do
 fastLineSeries1.Add(100*data2[i]);
<.CODE>
не понятно что рисует, даже в начале не похоже

понятно если  так (этот же файл загружаю в любую программу-редактор, там волны совпадают с моими "всплесками", и хотя не похоже, но это ладно, 0 совпадает)
но это относительно долго работает

StreamLen := BASS_ChannelGetLength(StreamWav, BASS_POS_BYTE);
StreamLenSec := BASS_ChannelBytes2Seconds(StreamWav, StreamLen);
CurPos := 0;
while (CurPos <= StreamLenSec) do
begin
  CurPosByte := BASS_ChannelSeconds2Bytes(StreamWav, CurPos);
  BASS_ChannelSetPosition(StreamWav, CurPosByte, BASS_POS_BYTE);
  Level := BASS_ChannelGetLevel(StreamWav);
  //L := LOWORD(Level);
  L := MulDiv(100, LOWORD(Level), 32768);
  fastLineSeries1.Add(L);
  CurPos := CurPos + 0.1;
end;

type
 TSingleArray = array of Single;
var
 ci  : BASS_CHANNELINFO;
 Buf  : TSingleArray;

...
StreamLen := BASS_ChannelGetLength(StreamWav, BASS_POS_BYTE); // Длинна в байтах
StreamLenSingle :=  StreamLen div SizeOf(Single);
//print(StreamLenSingle, 'StreamLenSingle=');
BASS_ChannelGetInfo(StreamWav, ci);
//Print(ci.chans, 'Chanels=');
SetLength(Buf, StreamLenSingle*ci.chans);
BASS_ChannelGetData(StreamWav, buf, StreamLenSingle*SizeOf(Single)*ci.chans or BASS_DATA_FLOAT);
//print(Length(buf), 'Length(buf)=');
  for i := 0 to Length(buf) - 1 do
  begin
    if i mod 10 = 0 then
      fstLnSeries1.Add(buf[i]);
  end;

SetLength(Buf, StreamLenSingle*ci.chans *2);
BASS_ChannelGetData(StreamWav, buf, StreamLenSingle*SizeOf(Single)*ci.chans *2 or BASS_DATA_FLOAT);