Chargement d'une table de travail avec une boucle

je suis en train d'écrire un programme qui doit charger une table de travail qui n'aura que 2 champs : codarti et punit, à partir d'une autre qui entre autres champs : codeart1, 2, 3, 4 etc.. ; et pu1, 2, 3, 4, etc..
j'ai la procédure suivante, mais ça ne marche pas. Comment faire ? (avec x comme variable)

table1.active:=true;
if table1.findkey([y]) then
x:=1;
begin
while not (x=101) do
begin
if not (table1.fieldbyname('codeart+'x'').asstring = '') then
begin
table2.append;
table2.fieldbyname('codarti').asstring=table1.fieldbyname('codeart+'x'').asstring;
table2.fieldbyname('punit').asstring=table1.fieldbyname('pu+'x'').asstring;
table2.post;
x:=x+1;
end;
end;

end;