Array Problem

[kiar]

also bei mir tritt gar kein fehler auf.
habe die datei gespeichert, wie oben aufgeführt und den quelltext lesbarer gemacht. die datei wird in das array eingelesen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var sx: TStringList;
    znr
   ,i
   ,j
   ,knr :integer;
    temp
   ,kstring : String;
    gebaude : Array [0..17,0..20,0..5] of String;
begin
 sx:= TStringList.Create; //Objekt erzeugen
 sx.LoadFromFile('c:\gebaude1.txt');  //Datei in Stringliste laden
 znr:=0;
 i:=0;
 j:=0;
 knr:=1;
 while znr < sx.Count-1 do 
   begin
     kstring:='g' + inttostr(knr);
     temp:=sx[znr];  // kontrollstring=temp
     if (pos('g',temp)) <> 0 then 
       begin
          inc(i);
          inc(knr);
       end
       else
       begin
         gebaude[i,j,0]:=sx[znr];
         gebaude[i,j,1]:=sx[znr+1];
         gebaude[i,j,2]:=sx[znr+2];
         gebaude[i,j,3]:=sx[znr+3];
         gebaude[i,j,4]:=sx[znr+4];
         gebaude[i,j,5]:=sx[znr+5];
         inc(j);
       end;
       znr:=znr+6;
   end;
 sx.free;
end;

also ich kann den fehler nicht nachvollziehen.

raik