[poropeked]

Подскажите как реализовать следующее: нужно сделать радио с добавлением и воспроизведением в плейлист.

к примеру есть кнопка с определенной станцией

Код:

procedure TForm1.btn1Click(Sender: TObject);
begin
BASS_Free;
 BASS_Init(-1, 44100,  2, 0, nil);
 chan:= BASS_StreamCreateURL (PAnsiChar('http://88.191.130.174:6404/'),0,0,nil,0);
 Bass_ChannelPlay(chan,False);
 end;

Это работает!
Дальше есть edit в который пишем url станции, при нажатии кнопки заносит данный url в текстовый файл. Потом этот файл выводим в listbox и вот тут нужно при выделении определенной строки с url воспроизводить именно эту строку.

Возможно думаю что как то так можно сделать, но не чего не выходит.

Код:

procedure TForm1.btn9Click(Sender: TObject);
var i: integer;
begin
      for i := lst1.Items.Count - 1 downto 0 do
  if lst1.Selected[i] then
BASS_Free;
 BASS_Init(-1, 44100,  2, 0, nil);
 chan:= BASS_StreamCreateURL (PAnsiChar('(i)'),0,0,nil,0);
 Bass_ChannelPlay(chan,False);
end; 

Помогите люди добрые!