Gib eine Level-Variable mit rein:
Delphi-Quellcode:
procedure TDTListDir.FindFiles(RootFolder: AnsiString; Mask: AnsiString = '*.*'; iLevel: integer=0; Recurse: Boolean = True);
...
FindFiles(Folder, Mask, iLevel+1, Recurse);
...
Anhand des Levels kommen dann die Tabs/Leerzeichen.