Inhalt der Listenbox in einer Schleife fassen???

[EvilDragon]

hab nu nhier gesucht und viele beispiele getestet leider spielt das prog statt den nächten song immer nur das was grad eben lief.. hier mal ein beispielcode:

Delphi-Quellcode:

    If ProgressBar1.Position = ProgressBar1.Max then begin
      MediaPLayer1.FileName := ListBox2.Items[ListBox2.ItemIndex+1];
      MediaPlayer1.Play;
    end;

und hier der code, der die list füllt:

Delphi-Quellcode:

  if RadioButton1.Checked then begin
    if (ListBox1.ItemIndex > -1) and   // Prüft, ob überhapt etwas in den
       (ListBox3.ItemIndex > -1) then  // Listeboxen ausgewählt ist
    for x := 1 to 25 do
    track[x] := dir+'\'
              +'cds_und_alben' + '\'
              + Format('%0:2.2d',[ListBox1.ItemIndex+1]) + '\'
              + Format('%0:2.2d',[ListBox3.ItemIndex+1]) + '\'
              + Format('%0:2.2d', [x]) + '.mp3';
    if (ListBox1.ItemIndex > -1) and
       (ListBox3.ItemIndex > -1) and
       (ListBox2.ItemIndex > -1) then begin //  Hier wird auch noch die
         MediaPLayer1.FileName := track[ListBox2.ItemIndex+1];  //Song-Listbox
          if ListBox2.Items.Count=0 then exit;
          mp3File := Concat(MediaPlayer1.FileName);
          if not FileExists(mp3File) then begin
          ShowMessage('MP3 file '+#13#10+'__'+ mp3File +'__'+#13#10+'does not exist!');
          exit;
          end;
          GetID3TagInformation(mp3File, edTitle, edArtist, edAlbum, edYear, edGenre, edComment);
         Form3.Edit1.Text := MediaPlayer1.FileName;
         Edit1.Text := MediaPlayer1.FileName;
         MediaPlayer1.Open;
         SetMPVolume(MediaPlayer1, ScrollBar1.Position);                                     //geprüft
         Trackbar1.Position :=0;
         Trackbar1.Max := MediaPlayer1.TrackLength[1];
         ProgressBar1.Max := MediaPlayer1.TrackLength[1];
         MediaPlayer1.Play;
      end;
  end;

track ist ein arry (steht in der vordere seite genauer