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.