Inhalt der Listenbox in einer Schleife fassen???

[scp]

Genauso kannst du tack1 bis track25 in folgendes zusammenfassen:

Delphi-Quellcode:

var
  track : array[1..25] Of String;
  x : integer;

Aufgerufen wird das dann mit:

Delphi-Quellcode:

track[1] := 'mp3/cds_und_alben/01/01/01.mp3';
track[2] := 'mp3/cds_und_alben/01/01/02.mp3';
// usw.

oder besser eben:

Delphi-Quellcode:

for x := 1 to 25 do
  track[x] := 'mp3/cds_und_alben/' + '01' + '/' + '01' + '/' + Format('%0:2.2d', [x]) + '.mp3';

Ps: Die 01/01/ kannst du ebenfalls auf diese Weise über listbox1.ItemIndex+1 bzw. listbox3.ItemIndex+1 automatisch einfügen.