... и ещё в догонку: FindClose нужно делать только в том случае, если по был найден хотя-бы один объект. Если ничего не найдено, то FindClose делать не надо.