function FindNext(var F: TSearcnRec): Integer;

После того как функция FindFirst вернула нулевое значение, с помощью FindNext можно получить информацию о следующем файле, соответствующем критериям поиска. В качестве единственного аргумента FindNext передается та же запись TSearchRec, что была использована для FindFirst. Возвращаемое значение равно нулю в случае успеха или коду ошибки в случае возникновения ошибки. Если FindNext больше не нашла файлов, код ошибки равен Eror_No_More_Files. Обязательно вызовите FindClose после завершения работы функций FindFirst и FindNext.