FindFirst and FindNext works like a charm..
[pascal]
if FindFirst('E:\Music\*' + Edit1.Text + '*.mp3', faAnyFile, sr) = 0 then
Edit2.text := sr.Name;

if FindNext(sr) = 0 then // If next exist add it to Edit3.text box :-)
Edit3.text := sr.Name;
FindClose(sr);
[/pascal]

Abit difficult to say why it doesn't work at your end I guess, what happens when you try it and what is Output.Items?
_____
Eriken