Если предположить, что файлы попадают в ListBox1 то можно так:
Код:
PlayList(''); // сформировать список mp3-файлов
if ListBox1.Count = 0 then Exit;
ListBox1.ItemIndex := 0;
Label2.Caption:=ListBox1.Items[ListBox1.itemIndex];
или так:
Код:
PlayList(''); // сформировать список mp3-файлов
try
ListBox1.ItemIndex := 0;
Label2.Caption:=ListBox1.Items[ListBox1.itemIndex];
except
// Здесь можно выдать сообщение об ошибке
end;