z:=IndexOF('Map {')+1;
    for i:=z to Count-2 do begin
      for x:=1 to MapX+1 do begin
        str:=strings[i];

        if str[x] = 'R' then begin
          Randomize;
          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;
    end;