I/O error 123 при поиске файлов

[[MoNAMur]]

процедура поиска

procedure TForm1.findmp3;  
var
   searchResult : TSearchRec;
   dir_name : string;
begin
try
  if FindFirst('*.mp3', faAnyFile, searchResult) = 0 then
  begin
    repeat
          GetDir(0, dir_name);
          memo1.Lines.Add(dir_name + '\' + searchResult.Name);
    until FindNext(searchResult) <> 0;
  end;
  if FindFirst('*', faAnyFile, searchResult) = 0 then
          repeat
              if (searchResult.Attr and faDirectory) = faDirectory then
                    if (searchResult.Name[1] <> '.') and (searchResult.Name <> 'System Volume Information') then
                       begin
                         ChDir(searchResult.Name);
                         findmp3;
                         ChDir('..');
                       end;
          until FindNext(searchResult) <> 0;
except
FindClose(searchResult);
end;
end;

а так запускаю поиск

procedure TForm1.Button1Click(Sender: TObject);
var
   ld: DWORD;
   i: integer;
   drivechar : array [0..25] of string;
   k: integer;   
begin
k := 0;
ld := GetLogicalDrives;
for i := 2 to 25 do
  begin
    if (ld and (1 shl i)) <> 0 then
      begin
      if (GetDriveType(PChar(Char(Ord('A') + i) + ':\')) = DRIVE_FIXED) or (GetDriveType(PChar(Char(Ord('A') + i) + ':\')) = DRIVE_REMOVABLE)
      then begin
           drivechar[i] := Char(Ord('A') + i) + ':\';
           k := k + 1 ;
           end;
      end;
  end;


/// ниже переходим на каждый найденный диск,занесенный в массив drivechar и выполняем поиск
while k >= 0 do
begin
memo1.lines.add(drivechar[k]);
ChDir(drivechar[k]);
findmp3;
k := k - 1;
end;
end;

и все бы ничего, ищет, заносит пути к найденным файлам в memo. но через некоторое время происходит ошибка "I/O error 123". Файлов mp3 на компьютере около 10000, находит примерно 5600 и появляется ошибка...

почему происходит ошибка? как сделать так чтобы корректно работало?

[mihali4]

Oшибка 123 = ERROR_INVALID_NAME (The filename, directory name, or volume label syntax is incorrect) означает, что имя файла, или каталога, или буквы диска задано неверно.

Кому, как не вам, знать точное место возникновения ошибки?

[[MoNAMur]]

хммм. спасибо за пищу для ума )))

посмотрел что в массив заносится. так там первая строка пустая, потом имена дисков C, D, пустая строка, S и еще 2 пустые строки...

быть может из-за этого... ушел размышлять.