y has probado de esta manera?
te pongo el pseudocodigo
Código Delphi
[-]
while not eof...
Begin
table2.FieldByName('noreg').AsInteger:=nr;
for I := 1 to query2.fields.Count - 1 do
begin
table2.Fields[i].Value := query2.Fields[i].Value;
table2.post;
query2.Next;
end;
end
osea colocar fuera del for el primer campo