Den Inhalt von 2 Tabelle mit einer Schleife ändern

[robby3]

Ich habe mir etwas überlegt aber es Funzelt nicht es ist eine Unendliche Schleife,
was mach ich Verkehrt.

Delphi-Quellcode:

while not Data.Querymin.Eof do begin
data.tablelager.FindNearest([Data.querymin.fieldByName('pos')]);
data.TableLager.active:=true;
data.tableLager.edit;
Data.tableLager.fieldByName('stueck').AsInteger  := Data.QueryMin.fieldByName('stueck').AsInteger ;
  data.TableLager.post;
Data.QueryMin.next;
     end;