TStringList: "Listen Index überschreitet das Maximum 0"

[Klaus01]

Hallo,

schon mal versucht die Schleife

Delphi-Quellcode:

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

bis MapData.count -1 laufen zu lassen?

Grüße
Klaus