Wenn du das FindAllFiles von einer Rekursion auf eine Iteration umstellst, dann sollte sich da "leicht etwas machen lassen,
dann kannst du leicht mittendrinnen rausspringen, also die Suchfunktion verlassen und später (in .Next) neu einsteigen.
Würde dann in entwa auf ein ähnliches Verfahren rauskommen, wie beim
SAX-Parser in der alten Version meines himXML (in der Neuen ist er noch nicht veröffentlicht).
[add]
einen Anfäng gäbe es dort
http://www.delphipraxis.net/internal...t.php?t=167783