procedure TForm1.sButton4Click(Sender: TObject);
var
 url: AnsiString;
begin
 BASS_Free;  
 BASS_Init(-1, 44100, 0, Handle, nil);
 url:= 'http://online.dorognoe.ru:8080/dorognoe';
 Chann:= BASS_StreamCreateURL (PAnsiChar(url),0,0,nil,0);
 Bass_ChannelPlay(Chann,False);
end;