关于findfirst函数的使用？！！！(10分)

下面这一段程序有问题没？其中findfirst函数中间那个faAnyFile是什么作用？
procedure TMainForm.AddallButtonClick(Sender: TObject);
var
sr: TSearchRec;
i: integer;
begin
I := FindFirst(filelist.filename, faAnyFile, sr);
while i = 0 do
begin
DBAddButton.Click;
i:= FindNext(sr);
end;
FindClose(sr);
end;

faAnyFile表示搜索所有属性的文件吧

procedure TMainForm.AddallButtonClick(Sender: TObject);
var
sr: TSearchRec;
i: integer;
begin
I := {若是搜索到文件返回0}FindFirst(filelist.filename{要搜索的文件名，可以带通配符}, faAnyFile{要搜索的文件属性可以是文件夹，只读文件，系统文件，具体请看单元sysutils}, sr{返回搜索结果的数据结构});
while i = 0 do
begin
DBAddButton.Click;
i:= FindNext(sr);{搜索下一个文件}
end;
FindClose(sr);{关闭搜索，注意一定要关闭搜索，不然会造成资源高浪费}
end;

谢谢 boot.ini