كيف يمكنني تحويل قيمة من سجل الى اخر

[medreg]

السلام عليكم 
جرب هكدا 
 Table1.Edit;
 while not table1.Eof do
  begin
   Table1.fieldbyname('Nbre_Ant').value := Table1.fieldbyname('Nbre_Tot').value;
  end;
 table1.post;

الكود يخمد لا يستجيب