Hi!
var
n:integer;
s:tsearchrec;
k:tstrings;
begin
n := findfirst('c:\*.mp3',faanyfile,s);
if n=0 then begin
listbox1.items.Add(s.Name);
repeat
n := findnext(s);
if n = 0 then listbox1.items.Add(s.Name);
until n<>0;
end;
n := findfirst('c:\*.wav',faanyfile,s);
if n=0 then begin...