Hola McK.
Ahora que veo como tenés el órden de inclusión de las units, me doy cuenta...
La función
FindClose está definida en la unit
SysUtils y tambien en la unit
Windows.
En la unit
Windows la función esta declarada con un parámetro de tipo
Cardinal (handle) y en
SysUtils con un parámetro de tipo
TSearchRec.
Al estar
SysUtils declarada primera, la posterior inclusión de la unit
Windows superpone la función, dandote el problema.
Tenés dos formas de solucionarlo:
Cambiando el órden de inclusión.
Código Delphi
[-]
uses
Windows, SysUtils, Dialogs, ...
O calificando la función.
Un saludo.