TStringList: "Listen Index überschreitet das Maximum 0"

[Spiderpig_GER_15]

Delphi-Quellcode:

  for y1:=0 to MapData.Count -1 do
  begin
    x1:=1;
    x2:=2;
    x3:=3;
    x4:=4;

    for i:=0 to ((length(MapData[0])+1)div 5) do
    begin
      aktuell.add((MapData[x1][y1])+(MapData[x2][y1])+(MapData[x3][y1])+(MapData[x4][y1]));

      with TWall.Create(MySpriteEngine) do
      begin
        Image := MyImageList.Find(inttostr(x1)+inttostr(x2)+inttostr(x3)+inttostr(x4)) ;
        x     := x1*50;
        y     := y1*50;
        z     := 0    ;
      end;

      x1:=x1+5;
      x2:=x2+5;
      x3:=x3+5;
      x4:=x4+5;

      aktuell.Clear;
    end;
  end;
end;

meint ihr so?

jetzt kommt: Listenindey überschreitet das maximum 21