Кодинг

[ALaKO]

и еще, в лист бокс лучше авто файлы добавлять из директории, набросал тут...

var
searchrec:Tsearchrec;
begin
if findfirst(ExtractFilePath(application.ExeName)+'path/*.mp3', faanyfile,searchrec)=0 then
begin
form1.listbox1.Items.Add
while (findnext(searchrec)=0) do
begin
form1.listbox1.Items.Add(d);
end;end;