procedure Tmediaplayer_frm.media_scroll_txt_run;
 begin
    begin
      Channel := Bass_StreamCreateFile(false,PChar(playlist.Strings[currentsong]),0,0,
                                  Bass_Stream_Decode); // wie gebe ich den Speicher wieder frei ?
      
      media_scroll_txt.Speed:= 20;
      Lauftext:= TAGS_Read(channel, '%ARTI'+ ' ---- '+'%TITL');
      Application.ProcessMessages;
      media_scroll_txt.Text:=(Lauftext);

    end;
 end;