紧急求助：为何FOUNNEXT(SR)返回的值不是0(100分)

procedure TForm1.Button1Click(Sender: TObject);

var
Found:Integer;
sr: TSearchRec;
j:integer;
begin
Found:=FindFirst('E:/DACPAS*.*',faAnyFile,sr);
showmessage(inttostr(FOUND));
while Found=0 do
begin
if (sr.Name='.') or (sr.Name='..') then
begin
Found := FindNext(sr);
continue;
end
else
begin
if not(sr.Attr and faDirectory > 0) then
memo1.lines.loadfromfile('E:/'+sr.Name);
Found:= FindNext(sr);
end;
showmessage(INTTOSTR(FOUND));
end;
FindClose(sr);
end;

这个程序没有问题啊，如果有满足条件的文件时，一直是返回0的，到最后因为找不到文件，当然不是0了。

是我自己搞错了文件名，谢谢各位，问题解决了