[Aristarh Dark]

Код:

procedure FindFile(aFileName:TFileName);
var
  SR: TSearchRec;
begin
  if FindFirst(aFileName, faAnyFile, SR) = 0 then
    repeat
        //работаем с файлом
    until FindNext(SR) < > 0;
  FindClose(SR);
end.

и заметь, я ничего не переписывал, только удалил лишнее