Переименовать файлы Опции

[sheka]

Возникла такая интересная проблема: нужно распечатать много фотографий(страницы из учебника). Хотя они уже фотоаппаратом сами проименованы по порядку, но намного приятние видеть их реальные номера. Чтобы вручную этим не заниматься, решил сделать программку. Но...Где-то она глючит... Находит файлы не по порядку. (Может 30 фоток найти подряд, потом перескочить на какую-то из оставшихся и опять найти все остальные подряд. Что-то в этом роде.).
Вот, собственно, она:

const
  len=2;

procedure find;
var
  searchResult : TSearchRec;
  i:integer;
  path:string;
  a:string;
begin
  path:='';
  findFirst(path+'*.JPG', faAnyFile, searchResult);
  i:=1;
  begin
    repeat
      a:=inttostr(i);
      while length(a)<len do
        a:='0'+a;
      RenameFile(path+searchResult.Name,path+a+'.JPG');
      inc(i);
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;
end;