Problem mit ShowMessage

[mimi]

jetzt habe ich folgenden code:

Delphi-Quellcode:

 z:=IndexOF('Map {')+1;
    Randomize;
    for i:=z to Count-2 do begin
      str:=strings[i];
      for x:=1 to MapX+1 do begin
        if str[x] = 'R' then begin
          Steine[x-1,i-z ].Tex:=random(3);
        end
        else begin
          if str[x] = 'K' then 
            Steine[x-1,i-z ].Tex:=None
          else
            Steine[x-1,i-z ].Tex:=StrToInt(str[x])
        end;
      end;

nur das problem besteht leider immer noch.
Warum kann das was mit dem speicher zu tuen haben ?
der code ist doch zimlich klein(naja diesier code abschnitt)
wenn ich kein -1 machen würde gibst doch probleme, wegen der 0 oder nicht ?
str[x] fängt von 1 an und mein 2D array von 0.