endlosschleifenfehler mit while

[5etH]

schon aber er kommt aus der zweiter schleife wie makiert nicht heraus

Delphi-Quellcode:

while (gespeichert = true) or (i <= form1.StringGrid1.rowcount) do 
    begin 
      while (gespeichert = true) or (x <= form1.stringgrid1.ColCount) do  <--------------- hier 
        begin 
          if form1.stringgrid1.cells[i,x] <> form1.stringgrid2.cells[i,x] then 
             begin 
               gespeichert := false; 
             end; 
          x := x + 1; 
        end; 
     i := i + 1; 
     x := 1;   
    end;