Два вопроса по рекурсивному поиску файлов

[Serge_Bliznykov]

понятно. я бы поступил так:

procedure TForm1.GetAllFiles(Path0, Path: string; SL: TStringList);
var
  sRec: TSearchRec;
  isFound: boolean;

begin
   Path0 := IncludeTrailingBackslash(Path0);
   if Path<>'' then
      Path := IncludeTrailingBackslash(Path);
   isFound := FindFirst( Path0+ Path + '*.*', faAnyFile, sRec ) = 0;
   while isFound do // Если нашли файл или папку то:
   begin
      if (sRec.Name <> '.') and (sRec.Name <> '..') then // Игнорировать служебные папки
      begin
         if (sRec.Attr and faDirectory) = faDirectory then // Если найденный файл - папка
            GetAllFiles(Path0, Path + sRec.Name, SL) // Перезапускаем процедуру передавая ей вложенную папку
         else
         begin
             SL.Add(Path + sRec.Name);
         end;
      end;
      Application.ProcessMessages;
      isFound := FindNext(sRec) = 0;
   end;
   FindClose(sRec);
end;

вызов, соответственно:

MyFiles('C:\', '', SL1);

p.s. впрочем, я думаю, что Вы использовали глобальную переменную FirstPath примерно для этой же цели...

p.p.s. код писал прямо на форуме, не проверял. Если что - мелкие недочёты поправите самостоятельно...