Bass.dll не воспроизводит m3u и другие потоки

procedure TForm1.FormCreate(Sender: TObject);
begin
if (not BASS_Init(-1, 44100, 0, Handle, nil)) then
    begin
        BASS_Free();
        MessageDlg('Cannot start default recording device!', mtError, [mbOk], 0);
        Halt;
    end;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
    BASS_Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
BASS_StreamFree(stream);
stream:=BASS_streamCreateURL(pansichar(AnsiString(label1.Caption)), 0, BASS_STREAM_STATUS, nil, 0);
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 Case combobox1.ItemIndex of
1: label1.Caption:='http://cluster.quantumart.ru/broadcast/default.aspx?media=rusradio';
2: label1.Caption:='http://media.brg.ua/m3u/sharmanka128.m3u';
end;
end;
 
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
 BASS_ChannelStop(stream);
end;

procedure TForm1.sBitBtn10Click(Sender: TObject);
begin
BASS_StreamFree(stream);
BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST, 1);
Bass_PluginLoad('basswma.dll', 0);
stream:=BASS_streamCreateURL(pansichar(AnsiString('http://moreradio.ru/listen.php?id=415&fr=771')), 0, BASS_STREAM_STATUS, nil, 0);
BASS_ChannelPlay(stream, false);
end;