Versuch hinter dem Dateiende zu lesen

[TheMiller]

Hey, stehe auf dem Schlauch. wo ist der Fehler?

Delphi-Quellcode:

procedure TForm1.FillList;
var
  i:Integer;
begin
  for i:=0 to sizeof(datei) do begin
   Seek(datei, i);
   Read(datei, data);
   ListView1.Items.Add;
   ListView1.Items[i].Caption:=data.Name;
   with ListView1.Items[i].SubItems do begin
    Add(data.Format);
    Add(data.Sprache);
   end;
  end;
end;

Initialisiert wird so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  AssignFile(datei, 'index.dat');
  IF FileExists('index.dat') THEN Reset(datei)
  else Rewrite(datei);

  filllist;
end;

Fehlermeldung: Versuch hinter dem Dateieinde zu lesen. Könnte ja einen try-except Block einbauen, aber das ist nicht so die feine Art...

Bitte somit jämmerlich um Hilfe!