Runtime Error bei meiner Funktion

[alcaeus]

Delphi-Quellcode:

function Anzahl : Integer; 
var loc : TStringlist; 
    i : Integer; 
begin 
  loc := TStringlist.Create; 
  loc.LoadFromFile('dc.loc'); 
  SetLength(Datei,Loc.Count); 
  for i := 0 to Loc.Count-1 do begin  //Loc geht von 0 bis Loc.Count-1
   Datei[i] := TDatei.Create; 
  end; 
  Result := loc.Count; 
  loc.Free; 
end;

So muesste das funktionieren...tuts jedenfalls bei mir.
Warum wollen alle ihre dynamischen Arrays von 1..Count ansprechen?

Greetz
alcaeus