[sariman]

нет, это не то, звук все равно прорывается всего лишь 3 сек.
Я думаю что проблема в этом:

Код:

procedure TForm1.PlayStream;
begin
  if Buffer=0 then Exit;
  if Channel=0 then begin
    Channel:=Buffer;
    Play;
  end else
  if BASS_ChannelIsActive(Channel)=Bass_Active_Stopped then begin
  FreeStream(Channel);
  Channel:=Buffer;
  Play;
  end else begin
  BASS_ChannelSlideAttribute(Channel,BASS_ATTRIB_VOL,0,FadeTimer);
  BASS_ChannelSetAttribute(Buffer,BASS_ATTRIB_VOL,0);
  BASS_ChannelPlay(Buffer,False);
  end;
PlaySync:=BASS_ChannelSetSync(Buffer,BASS_SYNC_SLIDE,0,@PlayStreamSync,nil);
BASS_ChannelSlideAttribute(Buffer,BASS_ATTRIB_VOL,Volume / 100,FadeTimer)
end;

Но решить ее не могу, подскажите плз.