关于一个文件搜索的问题????(5分)

.......
procedure TForm1.BitBtn1Click(Sender:Tobject);
var
i:Integer;
SearchRec:TSearchRec;
begin
Searched:=True;
FindFirst(edit1.text,faAnyFile,SearchRec);
ListBox1.Items.Add(Searched.Name);
Repeat
i:=FindNext(SearchRec);
If i=0 then
listbox1.items.add(searchRec.name);
unit i<>0;
end;
在这段程序中我想问一下关于Searched:=true;
和SearchRec:TSearchRec;
再就是在if ....then中为什么i=0??
不明白请回答!

Searched:=True
//好像不对，或者是别的地方定义的变量。
i=0 //当 Findnext 函数返回0给i时, 表示找到了一个文件。

type
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
//TSearchRec 用于保存FindFirst,FindNext等找到的文件有关信息。具体请看delphi的
帮助文档。
ListBox1.Items.Add(Searched.Name)
//这行代码有问题，应作
ListBox1.Items.Add(SearchRec.Name);

接受答案了.