[Ozerich]

Код:

var
filename:string; //имя файла,которого ищем
Cdir:string;     //имя папки,в которой надо искать
n:integer;       //кол-во найденных файлов

procedure find;
var search:Tsearchrec;
begin
getDir(0,Cdir);
if Cdir[length(Cdir)]<>'\' then Cdir:=Cdir+'\';
if findfirst(filename,faAnyFile,search)=0 then
repeat
if (search.Attr and faAnyFile)=search.Attr then  begin
form1.Memo1.Lines.Add(Cdir+search.Name);
inc(n);
end;
until findnext(search)<>0;
if findfirst('*',faAnyFile,search)=0 then
repeat
if (search.Attr and faDirectory)=faDirectory then
if search.Name[1]<>'.' then begin
chdir(search.Name);
find;
chdir('..');
end;
until findnext(search)<>0;
end;