[Maks19]

Код:

if not Table2.Locate('Isid',Table1.FieldByName('Projid').AsInteger,[]) then
begin
for i:=0 to n do
begin
Table2.Insert;
Table3.FieldByName('Cy1').AsString:=floattostr(Cy1[i]);
.........
Table2.Post;
end;
end
else
begin
for i:=0 to n do
begin
Table2.Edit;
Table2.FieldByName('Cy1').AsString:=floattostr(Cy1[i]);
.........
Table2.Post;
end;
end;

Не подскажите как сделать чтобы менялись все шесть записей в поле ,а не только первый?