endlosschleifenfehler mit while

[5etH]

Hallo Zusammen,

ich habe ein Programmfragment was 2 Tabellen miteinander vergleicht, die gespeicherte, und die aktuell geänderte. Leider springt er nicht aus der Whileschleife raus, obwohl die Zählvariable über den Row bzw ColCount hinaus geht. Ich finde den Gehler nicht, vielleicht könnt ihr mir weiter helfen

hier einmal das Fragment:

Delphi-Quellcode:

procedure TForm2.Button5Click(Sender: TObject);
var i,x  : Integer;
begin
  i := 1;
  x := 1;
  LoadStringGrid(form1.StringGrid2, 'c:\DB\DB.txt');
  
while (gespeichert = true) or (i <= form1.StringGrid1.rowcount) do
    begin
      while (gespeichert = true) or (x <= form1.stringgrid1.ColCount) do
        begin
          if form1.stringgrid1.cells[i,x] <> form1.stringgrid2.cells[i,x] then
             begin
               gespeichert := false;
             end;
          x := x + 1;
        end;
     i := i + 1;
    end;

if gespeichert = false then
  begin
    if MessageDlg('Fenster schließen ohne speichern!?',
    mtWarning, [mbYes, mbNo], 0, mbYes) = mrYes then
      begin
      form1.close;
      form2.close;
      end;
  end
  else
    begin
      form1.close;
      form2.close;
    end;
end;

schonmal vielen Dank für eure Hilfe

euer 5etH