Feld wird nicht aktualisiert. Warum?

[FBrust]

Hallo,

in meinem Programm steht folgender Code:

Delphi-Quellcode:

    with dmInput.tblIP_Current do begin
      Close;
      Open;
      while not Eof do begin
        Edit;
        FieldbyName('intDone').AsInteger := -1;
        Post;
        Next;
      end;
      Close;
    end;

In dem Feld "intDone" steht zu Beginn in jedem Datensatz eine 0, sie soll durch die obige Schleife durch eine -1 ersetzt werden. Die Tabelle ist vorhanden (Paradox), hat 473 Datensätze und die Schleife wird auch 473-mal durchlaufen (habe Zähler eingebaut).

Allerdings steht nach dem Durchlauf immer noch 0 in jedem Datensatz! Warum? Ich komm einfach nicht drauf , vielleicht hat ja jemand von euch einen Tip...

Grüße

Frank