TStringList: "Listen Index überschreitet das Maximum 0"

[Spiderpig_GER_15]

Folgender Auzug erzeug den Fehler: "Listen Index überschreitet das Maximum 0"

Aber ich weiß nicht wie ich ihn beheben kann

Delphi-Quellcode:

procedure TForm1.Loadlevel;
var MapData         :TStringList;
    i               :integer;
    aktuell         :Tstringlist;
    x1,x2,x3,x4,y1  :integer;
begin
  MapData   :=TStringList.Create;
  MapData.LoadFromFile('MapData.txt');
  aktuell   :=TStringlist.Create;

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

    for i:=0 to ((length(MapData[0])+1)div 5) do     //ergibt in meinem Fall 30
    begin
      aktuell[0]:=((MapData[x1][y1])+(MapData[x2][y1])+(MapData[x3][y1])+(MapData[x4][y1])); //<= Langes
                                                                                             //ausprobieren
                                                                                             //brachte mich zu
      with TWall.Create(MySpriteEngine) do                                                   //dem Schluss das
      begin                                                                                  //der Fehler hier
        Image := MyImageList.Find(aktuell[0]) ;                                              //steckt :(
        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;

also dieser Auszug soll, wenn er ganz feritg ist, mein Level Text in Bildchen uminterpretieren.
Aber das ist unwichtig, mein Problem ist das er mir die Fehler Meldung: "Listen Index überschreitet das Maximum 0" ausspuckt.

Ich habe auch gekennzeichnet, wo ich vermute wo der Fehler erzeugt wird, nur kann ich keinen Fehler erkennen

Hoffe ihr könnt mir helfen

MfG

Spiderpig