#pas
var
   FFTData:array [0..255] of Single;
   h:cardinal;
begin
   h := _prop_SoundStream^;
   if BASS_ChannelIsActive(h) <> BASS_ACTIVE_PLAYING then Exit;
   BASS_ChannelGetData(h, @FFTData, BASS_DATA_FFT256 or BASS_DATA_FFT_NOWINDOW);
   st.size := 0;
   st.write(FFTData, 256*sizeof(single));
  _hi_onEvent(onData, st);
end;