Suchfunktion nur bis zu einem Bestimmt Pfadpunkt!

[Hipp0]

Hallo und danke für die Begrüßung

So ganz verstehe ich das immer noch nicht wie ihr das meint.

Delphi-Quellcode:

procedure TForm1.GetFilesInDirectory(ADirectory: string; AMask: String; AList: TStrings; ARekursiv: Boolean);
var
  SR: TSearchRec;
  Suchtiefe : integer; //  das hier ist ja klar
  begin
  if (ADirectory<>'') and (ADirectory[length(ADirectory)]<>'\') then
    ADirectory:=ADirectory+'\';
  if (FindFirst(ADirectory+AMask,faDirectory,SR)=0) then begin
    repeat
      if (SR.Name<>'.') and (SR.Name<>'..')  {(SR.Attr<>faDirectory)} then
      If CheckBox1.checked = true then begin AList.Add(ADirectory+SR.Name); suchtiefe := 0; end else AList.Add(SR.Name) //hier bin ich mir nicht sicher und so klappt es auch nicht :)
    until FindNext(SR)<>0;
    FindClose(SR);
  end;
  if ARekursiv then
    if (FindFirst(ADirectory+'*.*',faDirectory,SR)=0) then
    begin
      repeat
        if (SR.Name<>'.') and (SR.Name<>'..') then
          GetFilesInDirectory(ADirectory+SR.Name,AMask,AList,True); Suchtiefe := suchtiefe+1; //und hier muss ich sie eins hochsetzen oder?
      until FindNext(SR)<>0;
      FindClose(SR);
    end;
end;

Vielen Dank für eure mühen