end of file (eof)

når der redigeret i en post og der trykkes på opdate ender den i den sidste post, kan den ikke blive ved den post efter posten er redigeret.

Jeg ved at problemet er EOF

her er koden
var
total:real;
begin
Table1.DisableControls;
  Total := 0;
  try
    Table1.First;
    while not Table1.EOF do
    begin
      Total := Total + DBedit2.Field.Value;
      Table1.Next;
    end;                           
  finally
      Table1.EnableControls;
  end;
  Statusbar1.Panels[2].Text:='xxx ialt:  ' +  Format('%g' + ' Stk.', [Total]);
begin
    Table1.DisableControls;
  Total := 0;
  try
    Table1.First;
    while not Table1.EOF do
    begin
      Total := Total + Apris.Field.Value;
      Table1.Next;
    end;
  finally
      Table1.EnableControls;
  end;
  Statusbar1.Panels[3].Text:='vare for ialt:  ' + Format('%g' + ',-', [Total]);
begin
    Table1.DisableControls;
  Total := 0;
  try
    Table1.First;
    while not Table1.EOF do   
    begin
      Total := Total + Nucalc.Field.Value;
      Table1.Next;
    end;
  finally
      Table1.EnableControls;
    end;
  Statusbar1.Panels[4].Text:='A pris:  ' + Format('%g' + ',-', [Total]);
  statusbar1.Panels[1].Text:=inTtoStr(Table1.RecordCount) +' Posteringer';