[Assistant]

наверное все таки вот так:

Код:

procedure TForm1.btn9Click(Sender: TObject);
begin
  if ListBox1.ItemIndex > -1 then
  begin
    BASS_Free;
    BASS_Init(-1, 44100, 2, 0, nil);
    chan:= BASS_StreamCreateURL(PAnsiChar(ListBox1.Items[ListBox1.ItemIndex]),0,0,nil,0);
    Bass_ChannelPlay(chan,False);
  end else
    ShowMessage('Из списка ничего не выбрано!');
end;

P.S.: на выделенное красным обратите внимание, на будущее...