netradio /如何获取收音机的名称？

Question

如何在Label中显示收音机的名称？

procedure TForm1.Button1Click(Sender: TObject);
var
  err: Integer;        
begin
  channel:= BASS_StreamCreateURL('http://stream.laut.fm/schlagerrallyefm', 0,
     BASS_STREAM_BLOCK or BASS_UNICODE, nil, 0);
  if channel <> 0 then
    BASS_ChannelPlay(channel, false);
  err := Bass_ErrorGetCode();
  if err <> 0 then
    ShowMessage('Error #' + IntToStr(err));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BASS_init(-1, 44100, 0, Handle, nil);
  BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST, 1);
end;