Hola.
Seguramente hay un conflicto de unidades.
Según la ayuda de delphi:
Cita:
|
Empezado por f1
FindClose
Releases memory allocated by FindFirst.
Unit
SysUtils
Category:
file management routines
procedure FindClose(var F: TSearchRec);
Description
FindClose terminates a FindFirst/FindNext sequence.
|
Además, que te hace pensar que no está bien enfocado. Yo personalmente creo que no es necesaria la comprobación del FileExists, a menos que dos procesos estén borrando los archivos al mismo tiempo... pero el resto, lo veo muy bien.
Hasta luego.
