Лишняя запись в БД и ошибка (Pascal)

[zigzac-zigzac]

Всем привет!!!!!!!!!!!!!!
У меня 2 вопроса:
1. Почему ответ следующего столбика добавляется в запись на строчку ниже, а не в одну запись(строчку)?
Проблема в том , что получается нужны ответ в другой записи и цикл его не считает.

Так я зачисляю в ячейки значения :

procedure TForm1.Button1Click(Sender: TObject);
 var
A:Integer;
begin
 if edit1.Text='' then
exit ;
A:=StrToInt(Edit1.Text);

if A=4 then
begin
ADOTable1.Open;
ADOTable1.Insert;
  ADOTable1.FieldByName('1').AsString:='2';
ADOTable1.Post;
ADoTable1.Close;
form1.Hide;
form2.Show;
end
 else
  begin

form1.Hide;
form2.Show
  end;
end;

И вот так :

procedure TForm5.Button1Click(Sender: TObject);
 var
A:String;
begin
  if edit1.Text='' then
exit ;


if edit1.Text='чемодан' then
begin
ADOTable1.Open;
ADOTable1.Append;
  ADOTable1.FieldByName('3').AsString:='2';
ADOTable1.Post;
form5.Hide;
form6.Show;
end
 else
  begin

form5.Hide;
form6.Show
  end;
end;

2. Такая ошибка :

.............could not convert variant of type null into type integer.

Это когда цикл суммирует ответы(они не нулевые)(но лесенкой)(в каждой строке по ячейке=2,остальные =0)

procedure TForm43.Button1Click(Sender: TObject);
var
k,i:integer;

begin
k:=0;
for I := 1 to 40 do k:=k+adotable1.Fields.Fields[i].Value;
label2.caption:=IntToStr(k)



end;

end.

Спасибо!

[Аватар]

1. Наверно Update нужен, а не Insert
2. if not adotable1.Fields.Fields[i].IsNull then k:=k+adotable1.Fields.Fields[i].Value;

[zigzac-zigzac]

2 ответ помог спасибо