Найти файлы по одному из всех директорий

var
from:Tstringlist;
 
....
procedure GetAllFiles(Path: string);
var
sRec: TSearchRec;
isFound: boolean;
begin
  isFound := FindFirst(Path + '\*', faAnyFile, sRec) = 0;
  while isFound do
  begin
    if (sRec.Name <> '.') and (sRec.Name <> '..') then
    begin
      if (sRec.Attr and faDirectory) = faDirectory then
      GetAllFiles(Path + '\' + sRec.Name) else begin
      from.Add('\\?\' + ExpandFileName(Path + '\' + sRec.Name));
      Application.ProcessMessages;
      end;
    end;
    isFound := FindNext(sRec) = 0;
  end;
  FindClose(sRec);
end;
 
Пока сделал так работает кривовато:
 
var
Its:integer=0;
 
function GetAllFiles(Path: string;startpos:integer):string;
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst(Path + '\*', faAnyFile, sRec) = 0;
while isfound do
 begin
    if (sRec.Name <> '.') and (sRec.Name <> '..') then
    begin
      if (sRec.Attr and faDirectory) = faDirectory then
      GetAllFiles(Path + '\' + sRec.Name,startpos) else begin
      Result:=('\\?\' + ExpandFileName(Path + '\' + sRec.Name));
      Application.ProcessMessages;
      end;
      end;
      if result<>'' then
      inc(Its);
      if its=startpos then
      break;
    isFound := FindNext(sRec) = 0;
  end;
  FindClose(sRec);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
dir:string;
int:integer;
begin
int:=5; // Задаётся начальная позиция файла здесь берём файл сразу под номером 5 
if SelectDirectory('Select Folder', '', dir) then
memo1.Lines.Add(GetAllfiles(dir,int));
end;

function GetFileName(FilePath: String; Index: Integer): String;
var
  FileInfo: TSearchRec;
begin
 Result := '';
 FilePath := IncludeTrailingPathDelimiter(FilePath);
 try
   if FindFirst(FilePath + '*.*', faAnyFile, FileInfo) <> 0 then Exit;
   var n := 0;
   repeat
     if (FileInfo.Name = '.') or (FileInfo.Name = '..') then Continue;
     if (FileInfo.Attr and faDirectory <> 0) then Continue;
     if n = Index then Exit(FilePath + FileInfo.Name);
     Inc(n);
   until FindNext(FileInfo) <> 0;
 finally
  FindClose(FileInfo);
 end;
end;

  var Index := 0;
  while True
  do begin
     var FileName := GetFileName('D:\Work\My\FileCollector\', Index);
     if FileName = '' then Break;
     Inc(Index);
     end;

function GetFileName(FilePath: String; Index: Integer): String;
var
  FileInfo: TSearchRec;
  n:integer;
begin
 Result := '';
 FilePath := IncludeTrailingPathDelimiter(FilePath);
 try
   if FindFirst(FilePath + '\*', faAnyFile, FileInfo) <> 0 then Exit;
   n := 0;
   repeat
     if (FileInfo.Name = '.') and (FileInfo.Name = '..') then Continue;
     if (FileInfo.Attr and faDirectory <> 0) then Continue;
     if (FileInfo.Attr and faDirectory) = faDirectory then
     GetFileName(FilePath + '\' + FileInfo.Name, 0) else
     if n = Index then Exit('\\?\' + ExpandFileName(FilePath + FileInfo.Name));
     Inc(n);
   until FindNext(FileInfo) <> 0;
 finally
  FindClose(FileInfo);
 end;
end;

function GetFileInfo(FilePath: String; Index: Integer; var FileInfo: TSearchRec): Boolean;
begin
 Result := False;
 FilePath := IncludeTrailingPathDelimiter(FilePath);
 if FindFirst(FilePath + '*.*', faAnyFile, FileInfo) <> 0 then Exit;
 var n := 0;
 repeat
   if (FileInfo.Name = '.') or (FileInfo.Name = '..') then Continue;
   if n = Index then Exit(True);
   Inc(n);
 until FindNext(FileInfo) <> 0;
end;
 
procedure TForm101.Button1Click(Sender: TObject);
begin
  var Index := 0;
  var FileInfo: TSearchRec;
  var Path := 'D:\Work\My\FileCollector\';
  while True
  do begin
     if not GetFileInfo(Path, Index, FileInfo) then Break;
     if FileInfo.Attr and faDirectory <> 0
     then Memo1.Lines.Add('(D)' + Path + FileInfo.Name)
     else Memo1.Lines.Add('(F)' + Path + FileInfo.Name);
     Inc(Index);
     end;
end;