Ошибки при добавлении записей в БД

 TForm2.Button1Click(Sender: TObject);
begin
//try
if (Trim(Edit1.Text)='') or (Trim(Edit2.Text)='') or (Trim(Edit3.Text)='')
or (Trim(Edit4.Text)='') or (Trim(Edit5.Text)='') or (Trim(Edit6.Text)='')
or (Trim(Edit7.Text)='') or (Trim(Edit8.Text)='') or (Trim(Edit9.Text)='')
or (Trim(Edit11.Text)='') or (Trim(Edit12.Text)='') or (Trim(Edit13.Text)='')
or (Trim(Edit14.Text)='') or (Trim(Edit15.Text)='')
then
ShowMessage('Заполните пустые поля')
else begin
form1.ADOTable1.Insert;
form1.ADOTable1.FieldByName('Фамилия').AsString:=Edit1.Text;
form1.ADOTable1.FieldByName('Имя').AsString:=Edit2.Text;
form1.ADOTable1.FieldByName('Отчество').AsString:=Edit3.Text;
form1.ADOTable1.FieldByName('Дата рождения').AsDatetime:=StrToDate(Edit4.Text);
form1.ADOTable1.FieldByName('Школа').AsInteger:=StrToInt(Edit5.Text);
form1.ADOTable1.FieldByName('Класс').AsInteger:=StrToInt(Edit6.Text);
form1.ADOTable1.FieldByName('Документ удостоверяющий личность').AsString:=Edit7.Text;
form1.ADOTable1.FieldByName('Код родителя').AsInteger:=StrToInt(Edit6.Text);
form1.ADOTable1.FieldByName('Код группы').AsInteger:=StrToInt(Edit7.Text);
form3.ADOTable1.Insert;
form3.ADOTable1.FieldByName('Код родителя').AsInteger:=StrToInt(Edit6.Text);
form3.ADOTable1.FieldByName('Фамилия').AsString:=Edit11.Text;
form3.ADOTable1.FieldByName('Имя').AsString:=Edit12.Text;
form3.ADOTable1.FieldByName('Отчество').AsString:=Edit13.Text;
form3.ADOTable1.FieldByName('Адрес').AsString:=Edit14.Text;
form3.ADOTable1.FieldByName('Телефон').AsString:=Edit15.Text;
Edit1.clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
Edit9.Clear;
Edit11.clear;
Edit12.Clear;
Edit13.Clear;
Edit14.Clear;
Edit15.Clear;
Form1.ADOtable1.Active:=true;
form1.ADOtable1.Post;
Form3.ADOtable1.Active:=true;
form3.ADOtable1.Post;
end;
end;