如何快速统计文件数？

Question

n:=0;
if findfirst() then
inc(n);
while findnext() do
inc(n);

Answer 1

我怎么调试不通，我这样调试的：
procedure TForm1.Button1Click(Sender: TObject);
begin
FileAttrs:=faanyfile;n:=0;
if findfirst('c:\winnt',FileAttrs,sr) then
inc(n);
while findnext(sr) do
inc(n);
edit1.Text:=inttostr(n);
end;请你继续帮忙好吗？我这两天刚学用delphi,还很不熟悉，谢谢

Answer 2

sorry sorry，程序我调试通过了，犯了低级失误，但这样的统计效率很不高呀，有没有更快速的统计方法。