Вообщем совсем разобрался и даже процедуру сканирования по маске всего диска сделал (результат в файл)
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
procedure ScanDir(StartDir: string;Mask:String;var f:text;);
var
SearchFiles : TSearchRec;
SearchDirs : TSearchRec;
begin
if FindFirst(StartDir+Mask, (faanyfile xor fadirectory), SearchFiles) = 0 then begin
assignfile(f,'C:\Infotree.txt');
append(f);
repeat
writeln(f,Startdir+searchfiles.name);
until FindNext(SearchFiles) <>0;
close(f);
findclose(Searchfiles);
End;
If FindFirst(StartDir+'*.*',(fadirectory xor fahidden),SearchDirs)=0 then begin
repeat
if (Searchdirs.name<>'..') and (searchdirs.name<>'.') then
scandir(startdir+SearchDirs.name+'\',mask,f);
until findnext(SearchDirs)<>0;
findclose(searchdirs);
end;
end;<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->