Заполнение бд через эдиты и кнопку

[Elementig]

Вообщем по нажатию на кнопку "добавить" должна вылазить форма, а на не комбо боксы, эдиты которые заполняю и жму ок.

частично сделал
Код:

procedure TForm3.Button1Click(Sender: TObject);
begin
Form2.ADOTable1.Insert;
Form2.ADOTable1.Fields.Fields[0].NewValue:='1';
Form2.ADOTable1.Fields.Fields[2].NewValue:=ComboBox1.Text;
Form2.ADOTable1.Fields.Fields[3].NewValue:=ComboBox2.Text;
Form2.ADOTable1.Fields.Fields[4].NewValue:=Edit1.Text;
Form2.ADOTable1.Fields.Fields[5].NewValue:=Edit2.Text;
Form2.ADOTable1.Fields.Fields[6].NewValue:=Edit3.Text;
Form2.ADOTable1.Fields.Fields[7].NewValue:=Edit4.Text;
Form2.ADOTable1.Fields.Fields[8].NewValue:=Edit5.Text;
Form2.ADOTable1.Fields.Fields[9].NewValue:=Edit6.Text;
Form2.ADOTable1.Fields.Fields[10].NewValue:=Edit7.Text;
Form2.ADOTable1.Fields.Fields[11].NewValue:=ComboBox3.Text;
Form2.ADOTable1.Fields.Fields[12].NewValue:=ComboBox4.Text;
Form2.ADOTable1.Fields.Fields[13].NewValue:=Edit8.Text;
Form2.ADOTable1.Fields.Fields[14].NewValue:=Edit9.Text;
Form2.ADOTable1.Fields.Fields[15].NewValue:=Edit10.Text;
Form2.ADOTable1.Fields.Fields[16].NewValue:=ComboBox5.Text;
Form2.ADOTable1.Fields.Fields[17].NewValue:=ComboBox6.Text;
Form2.ADOTable1.Fields.Fields[18].NewValue:=ComboBox7.Text;
Form2.ADOTable1.Fields.Fields[19].NewValue:=ComboBox9.Text;
Form2.ADOTable1.Fields.Fields[20].NewValue:=Edit11.Text;
Form2.ADOTable1.Fields.Fields[21].NewValue:=Edit12.Text;
Form2.ADOTable1.Fields.Fields[22].NewValue:=Edit13.Text;
Form2.ADOTable1.Fields.Fields[23].NewValue:=Edit14.Text;
Form2.ADOTable1.Fields.Fields[24].NewValue:=Edit15.Text;
Form2.ADOTable1.Fields.Fields[25].NewValue:=ComboBox10.Text;
Form2.ADOTable1.Fields.Fields[26].NewValue:=Edit16.Text;
Form2.ADOTable1.Post;

Сдесь ключевое значие в базу присваивается 1. Просто в базе есть связи и ключ не может быть "счетчиком" и поставлено "числовой"
Как сделать чтобы при добавлении автоматически увеличивалось значение на одно?
И в бд гриде у меня почему то отображается только столбец кода и первый после него столбец, остальные нет. Хотя все в базе добавляется