Es geht noch viel Einfacher, z.b.:
Delphi-Quellcode:
procedure addPlaylisteItem(const aFileName:String);
begin
Listbox1.Items.addObject(extractFileName(aFileName),TObject(aFileName);
end;
function GetPlayListenItem(const aItemIndex:Integer):String;
begin
result:=String(Listbox1.items.object[aItemIndex]);
end;
Wenn es nur um einen Dateinamen geht, wenn du noch mehr Infos speichern möchtes zu einem Eintrag würde ich einfach eine eigene Klasse erzeugen und die dann in die TSTringList einfügen und fertig.
der Vorteil du hast nur noch eine Liste und nicht zwei.
mein Beispiel von Oben kann sehr leicht angepasst werden dafür....