1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure SavePlaylist(filename: String);
//var ...
begin
      myAList := TStringList.Create;
      myAList.Add('#EXTM3U');
      for i := 0 to PlayList.Count - 1 do
      begin
        aAudiofile := Playlist[i] as TAudiofile;
        myAList.add('#EXTINF:' + IntTostr(aAudiofile.Dauer) + ','
              + aAudioFile.Artist + ' - ' + aAudioFile.Titel);
        myAList.Add(ExtractRelativePath(FileName, aAudioFile.Pfad ));
      end;
      myAList.SaveToFile(FileName);
      myAList.Free;
end;