Doch TListbox geht mehrspaltig. Schau mal hier:
https://docwiki.embarcadero.com/Libr...mListBox.Items
Ich schreibe zum Beispiel so in die Listbox:
lbPlayliste.Items.Add(Mp3Info.Titel + '|' + sFileName);
Und lese das so entsprechend aus:
for Loop := 0 to lbPlayliste.Items.Count - 1 do begin
SL.Add(lbPlayliste.GetField(Loop, 0));
SL.Add(lbPlayListe.GetField(Loop, 1));
end;