I do exactly this.
procedure TApp.Button1Click(Sender: TObject);
var
filename : string;
ch : integer;
begin
//filename := 'http://staging.radio538.nl/media/radio538.asx';
filename := 'http://81.23.233.74:80/radio538';
ch := BASS_WMA_StreamCreateFile(False, pchar(filename), 0, 0, BASS_STREAM_AUTOFREE);
BASS_StreamPlay(ch,true,0);
end;
uncomments the other filename and it also doesn't work.
No errors, my connection led searches for a connection which stays on about 2 seconds and then it goes off. No sound no errors. And the app can receive input messages.