Endlosschleife???

[luzifer]

isch glaube ich werd hier bekloppt! Vielleicht kann hier mal jemand einen Blick drauf werfen. Ich find´s einfach nicht.
Die Schleife läuft immer unendlich. Hab aber doch nur 4 Testdatensätze drin....

Code:

Table1.Active:=true;
   Table1.Open;
   Table1.First;
     while not Table1.Eof DO
       begin
       if Table1Lauf1.Text<Table1Lauf2.Text then
        begin
           Table1.Edit;
           Table1Bestzeit.Text:= Table1Lauf1.Text;
           Table1.Post;
        end;
          Table1.Next;
      end;

Bitte um Hilfe. Ich bin den Quellcode schon 1000mal hoch und runter marschiert und find einfach nicht.