Statt dem Parameter InDir:Boolean nimmst du einfach den Parameter Tiefe:integer.
Jedesmal, wenn du rekursiv ein Verzeichnis hinabsteigst wird die Tiefe ums Eins verringert.
Delphi-Quellcode:
// procedure TForm1.FileSearch(const PathName, FileName : string; const InDir : boolean); // alt
procedure TForm1.FileSearch(const PathName, FileName : string; Tiefe:integer); // neu
...
// If not InDir then Exit; // alt
if Tiefe <= 0 then Exit; // neu
...
// FileSearch(Path + Rec.Name, FileName, True); // alt
FileSearch(Path + Rec.Name, FileName, Tiefe-1); // neu