Добавление записей в таблицу со вторичными ключами и первичными

procedure TForm2.Button1Click(Sender: TObject);
begin
if(Edit5.Text<'0') then begin
MessageDlg('Òàêîãî êîëè÷åñòâà òîâàðà íå äîëæíî áûòü', mtWarning, [mbOk] , 0) ;
end
else begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Kategoriya(Nazvanie)');
ADOQuery1.SQL.Add('values(:newNazvanie)');
ADOQuery1.Parameters.ParamByName('newNazvanie').Value:=Edit4.Text;
ADOQuery1.ExecSQL;
 
ADOQuery1.SQL.Add('INSERT INTO Opisanie(Srok, Opisanie, Data_proizv)');
ADOQuery1.SQL.Add('values(:newSrok,:newOpisanie,:newData_proizv)');
ADOQuery1.Parameters.ParamByName('newSrok').Value:=Edit10.Text;
ADOQuery1.Parameters.ParamByName('newOpisanie').Value:=Edit11.Text;
ADOQuery1.Parameters.ParamByName('newData_proizv').Value:=Edit12.Text;
ADOQuery1.ExecSQL;
 
ADOQuery1.SQL.Add('INSERT INTO Tovar(Nazvanie,Id_Opisanie Cena, Id_Kategoriya,Kolichestvo)');
ADOQuery1.SQL.Add('values(:newNazvanie, :newId_Opisanie,:newCena, :newId_Kategoriya,:newKolichestvo)');
ADOQuery1.Parameters.ParamByName('newNazvanie').Value:=Edit1.Text;
ADOQuery1.Parameters.ParamByName('newId_Opisanie').Value:=2;
ADOQuery1.Parameters.ParamByName('newCena').Value:=Edit3.Text;
ADOQuery1.Parameters.ParamByName('newId_Kategoriya').Value:=2;
ADOQuery1.Parameters.ParamByName('newKolichestvo').Value:=Edit5.Text;
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:='Select * From Tovar';
ADOQuery1.Open;
 
end;
end;