Ошибка "Файл не найден" при выборе большого числа файлов

[NoName_emaNoN]

Самым действенным наверное в этом случае будет SelectDirectory, вот функция:

function GetPath(mes: string):string;
var
  Root: string;  
  pwRoot : PWideChar;
  Dir: string;
begin
  Root := ''; 
  GetMem(pwRoot, (Length(Root)+1) * 2);
  pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);
  if SelectDirectory(mes, pwRoot, Dir)
     then
          if length(Dir) = 2  
              then GetPath := Dir+'\'
              else GetPath := Dir
     else
          GetPath := '';
end;

А вообще можно попробовать на новой Delphi 2010 поработать с типами TDirectory, TPath.