Cette procédure permet de terminer le processus de lecture d'un répertoire enclenché par «FindFirst».
Procedure FindClose(var F: TSearchRec);