Listenindex überschreitet das Maximum

[blender]

Ich habe das gleiche Problem.

Delphi-Quellcode:

procedure TForm1.OeffnenButton1Click(Sender: TObject);
var Auswahl, i: Integer;
begin
if opendialog1.Execute then
begin
Vokabeln  := TStringList.Create;
NVokabeln := TStringList.Create;
Sprachen  := TStringList.Create;
LetztStand:= TStringList.Create;

Vokabeln.LoadFromFile(OpenDialog1.FileName);
Auswahl:= ((Vokabeln.Count - 3) div 3);
for i  := 0 to Auswahl * 2 do
begin
NVokabeln.Add(Vokabeln.Strings[i]);
end;
for i := Auswahl * 2 + 1 to Auswahl * 3 do
begin
LetztStand.Add(Vokabeln.Strings[i]);
end;

Sprachen.Add(Vokabeln.Strings[Vokabeln.count - 3]);
Sprachen.Add(Vokabeln.Strings[Vokabeln.count - 2]);
LDatum := Vokabeln.Strings[Vokabeln.count];

end
else
begin
beep;
end;
end;

Es kommt immer die Meldung: "Listenindex überschreitet das Maximum (-1)". (oder mit anderen Werten)
Lasse