Vokabeltrainer

[blender]

Hallo,
ich habe die abfrage neu Programmiert.
Dabei sollen beim öffnen die Vokabeln, Sprachen, Schwierigkeiten etc. in verschiedenen Listen gespeichert werden.
Nun tritt bie folgendem Code:

Delphi-Quellcode:

procedure TForm1.Abfragen1Click(Sender: TObject);
var gesamtedatei: TStringlist;
    datum: string;
    i: integer;
begin
try
gesamtedatei := TStringlist.create;
vokabelnf1   := TStringlist.create;
vokabelnf2   := TStringlist.create;
nochabzufr   := TStringlist.create;
 if opendialog1.Execute then
  begin
   gesamtedatei.loadfromfile(opendialog1.FileName);
   if opendialog1.FileName[length(OpenDialog1.FileName) - 6] = '.' then
    begin
     //Format: .vocab
     datum:= DateTimeToStr(now);
     Sprache1:= gesamtedatei[0];
     Sprache2:= gesamtedatei[1];
     for i := 2 to gesamtedatei.count do
      begin
      if i mod 2 = 2 then Vokabelnf1.add(gesamtedatei[i]) else Vokabelnf2.add(gesamtedatei[i]);
      end;
     for i := 0 to vokabelnf1.count do nochabzufr.Add('3');
    end
    else
    begin
     //Format: .vocab1
     datum:= gesamtedatei[0];
     Sprache1:= gesamtedatei[1];
     sprache2:= gesamtedatei[2];
      for i := 3                                     to ((gesamtedatei.count - 2)div 3)+2 do Vokabelnf1.add(gesamtedatei[i]);
      for i := (3 +((gesamtedatei.count - 2) div 3)) to (((gesamtedatei.count- 2)div 3)*2)do vokabelnf2.add(gesamtedatei[i]);
      for i := ((((gesamtedatei.count-2)div 3)*2)+3) to gesamtedatei.count do nochabzufr.add(gesamtedatei[i]);
    end;
  end;
finally
gesamtedatei.Free;
end;
speichern1.Enabled:= false;
end;

Folgender Fehler auf: Listenindex überschreitet das Maximum (14)
Ich kann mir das nicht erklähren.