Dynamische Arrays

[Chris WF]

Delphi-Quellcode:

type
  TDatei = class
    name,pass: String;
  end;
  TDaten = class
    datei: array of TDatei;
    procedure Einlesen;
  end;

Delphi-Quellcode:

var
   Form1: TForm1;
   Daten: TDaten;

implementation

procedure TDaten.Einlesen;
var xdatei: textfile;
var dateiname: string;
var i,n: integer;
begin
   i := 0;
   dateiname :=  ExpandFileName('keys.txt');
   assignfile(xdatei,dateiname);
   reset(xdatei);
   repeat inc(i); readln(xdatei); until eof(xdatei);
   SetLength(daten.datei,i+1);
   for n := 0 to i do
   begin
      readln(xdatei,daten.datei[i].name);
      readln(xdatei,daten.datei[i].pass);
   end;
   closefile(xdatei);
end;

So, das Problem liegt im SetLength. Wenn ich das Programm schrittweise ausführe, kommt eine Fehlermeldung "Zugriffsverletzung bei Adresse ... "
Woran kann das liegen und wie kann ich das beheben?

Danke
Chris WF

Edit: Achso, da ist noch ein EOF-Problem, das hat aber nicht Priorität