Suchfunktion nur bis zu einem Bestimmt Pfadpunkt!

[Hipp0]

Hallo zusammen,
Ich habe folgendes Problem:
Ich möchte eine procedure schreiben die einen bestimmten Ordner nur bis zu einem bestimmten Punkt durchsucht weil es sonst zu lange dauern würde alles zu durchsuchen. Die Struktur sieht folgendermaßen aus:


Hier soll noch drin gesucht werden!(Und zwar soll auch der Ordnername an sich gefunden werden)
X:\14.14.14

Hier auch noch (jedoch muss hier nur eine bestimmte Datei mit einer bestimmten Endung(.ser) gefunden werden)
X:\14.14.14\Datensicherung

Hier nicht mehr also die Ordner (CFG DTA UND EMG) sollen komplett bei der suche ignoriert werden
X:\14.14.14\Datensicherung\CFG
X:\14.14.14\Datensicherung\DTA
X:\14.14.14\Datensicherung\EMG

Von diesen Zahlenordnern wird es später sehr viele geben.

Ich habe versucht folgenden Code zu verändern ist mir aber nicht gelungen:

Delphi-Quellcode:

var  
  SR: TSearchRec;
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  AList.Add(ADirectory+SR.Name) else AList.Add(SR.Name)
    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);
      until FindNext(SR)<>0;
      FindClose(SR);
    end;

Dann habe ich mir überlegt erst alle Ordnerpfade(die mit den Zahlen) die sich auf dem Laufwerk befinden zwischen zu speichern und dann jeden durch einen neuen Aufruf nochmal zu durchsuchen. Das gleich dann mit dem Datensicherungsordner. Jedoch gefällt mir diese Lösung garnicht.

Vielleicht habt ihr Lust und Zeit mir zu helfen ich selbst komme nämlich nicht mehr weiter.

Schonmal vielen Dank!