FindClose. Error al compilar.

[ecfisa]

Hola.

Probé tu código con Delphi 7 y como esperaba funciona bién.

Te pongo el código que usé, hice algunos cambios pero no alteran la funcionalidad.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
begin
  if FindFirst('C:\*.*', faAnyFile and not (faVolumeID or faDirectory), SR) = 0 then
  begin
    repeat
       Memo1.Lines.Add(SR.Name);
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

En un principio pensé que estaba tomando la función FileSearch en lugar del nombre de variable, pero no es eso...
Tu código debería funcionar ok.

Saludos.

Edito: No incluí la unit FileCtrl pero tampoco es eso.