Problem: findfirst() und findnext()

[geisi]

kann mir irgendwer sagen, was hier nicht stimmt?
ich bekomme immer eine EacessViolation - Fehlermeldung beim Aufruf der Methode findnext()
FileArray ist ein dynamische Array of TSearchRec

Delphi-Quellcode:

procedure TExplorer.searchforfiles();
var i,z:integer;
  SearchRec:TSearchRec;
begin
  i:=0;
  setlength(fileArray,1);
  if findFirst(dir+'*',faAnyFile,fileArray[0])=0 then
    repeat
      inc(i);
      setlength(fileArray,i+1);
      z:=findnext(fileArray[i]);
    until z<>0;
end;

Danke im Vorraus