Hej jag håller på med ett program som ska lista filer men kommit till ett problem

<code>
procedure TForm1.FileLook(Filespec:string);
var validres:integer;
SearchRec : TSearchRec;
DirPath, FullName, Flname : string;
Exists:boolean;
begin
DirPath:=ExtractFilePath(FileSpec);
Exists := DirectoryExists(DirPath);
If not Exists then exit;
Flname:=ExtractFileName(FileSpec);

validres := FindFirst(FileSpec, faAnyFile, SearchRec);

while validres=0 do begin
If (SearchRec.Name <> '.') and (SearchRec.name <> '..' ) then
begin
FullName:=DirPath + LowerCase(SearchRec.Name);
flList.Add(Fullname);
If (SearchRec.Attr and faDirectory > 0) then
FileLook(FullName+'\'+ Flname);
end;
validres:=FindNext(SearchRec);
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
FlList := TstringList.Create;
FileLook('C:\Program\KaZaA Lite\My Shared Folder\*.*');
flList.SaveToFile('test.txt');
end;
</code>

skriver jag
FileLook('C:\Program\KaZaA Lite\My Shared Folder\*.*');
så funkar det perfekt, den söker igenom alla mappar även undermappar men skriver jag tex
FileLook('C:\Program\KaZaA Lite\My Shared Folder\*.mp3');
så söker den inte i undermappar...
får bara dom som är i "utgångsmappen"
det kan inte vara så..

hoppas ni förstår vad jag menar