directorylistbox1.Items.clear;
if FindFirst ('immagini' + pchar + 'sfondi' +pchar +'*', faDirectory, Rec) = 0 then
try
repeat
if (rec.name <> '.') and (rec.name <> '..') then directoryListBox1.Items.Add(Rec.Name) ;
until FindNext(Rec) <> 0;
finally
FindClose(Rec) ;
end;
this is my solution, where directorylistbox1 is a Tlistbox and Rec is a Tsearchrec