Проблемы с FindNext

[Serejka]

Вот процедурка, выдающая список файлов в указанной папке:

procedure ListFileDir(Path: string;  List: TStrings; Format: String);
var
  SR: TSearchRec;
begin
  if Format = '' then Format := '*';
  if FindFirst(Path + '*.' + Format, faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) and (SR.Name <> '.') and (SR.Name <> '..') then
      begin
        List.Add (SR.Name);
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

Работает хорошо, но только если файлов в указанном каталоге не более трёх Если больше, то на строке " until FindNext(SR) <> 0;" возникает ошибка:
Project Bla-Bla.exe faulted with message: 'access violation at 0x00000000: read of address 0x00000000'. Process Stopped. Use Step or Run to continue.

Пробовал посмотреть где конкретно косяк при пошаговой отладке на ассме: в реализации функции FindNext:
...
call FindNatchingFile
pop ebx
ret - вот здесь-то и вылетает ошибка (более глубоко пытался разобраться, но с низкоуровневым программированием я пока только на Вы )

P.s.: перезагрузка как Delphi, так и компа не помогла

Последнее предупреждение по поводу оформления кода.
Читайте правила! Чтоб потом не обижаться...

[mihali4]

Никаких проблем с вашим кодом не наблюдается. Нормально, без сбоев отрабатывает на большом количестве файлов.
Ищите ошибку либо в самом каталоге, либо в другом месте программы.

[Квэнди]

ну вообще не очен красиво менять параметр переданный без var, хотя и вообще менять принимаемые параметры не лучший тон. Сделайте лучше функцию а не процедуру, которая будет возвращать Tstringlist

[Serejka]

И правда некрасиво
Заменил процедуру функцией - помогло )

Спасибо за внимание и ответы.