[angvelem]

В файле mp3.pas

Код:

  if FileExists(ChangeFileExt(ExtractFileName(ParamStr(0)), '.m3u')) then
    SongClass.LoadSongList(ChangeFileExt(ExtractFileName(ParamStr(0)), '.m3u'));

в файле PlayList.pas

Код:

procedure TSongClass.LoadSongList(PlayList : String);
var
  Index : Integer;
begin
  ClearSonglist;
  ParsingSongList(PlayList);

  if fSongList.Count = 0 then
    Exit;

  FillSongList;

  Randomize;
  repeat
    // здесь выбирается номер трека для запуска.
    Index := Random(fParent.Items.Count);
  until FileExists(TSongListData(fSongList.Objects[Index]).OpenFile);
  FileName := TSongListData(fSongList.Objects[Index]).OpenFile;

  PlaySongList(Index);
end;