Связь таблиц через ADOStoredProc

[Ericnex]

Есть хранимая процедура на вставку:

Create procedure INSERT_SVETILNIK2
@Name_s nvarchar(20),
@Moshost real,
@Napriaznenie int,
@Kreplenie nvarchar(10),
@Klass_zashiti nvarchar(20),
@Klim_isp nvarchar(20),
@Svetovoy_potok nvarchar(10),
@Price real,
@Id_z int
AS
INSERT Svetilnik(Name_s,Moshost,Napriaznenie,Kreplenie,Klass_zashiti,Klim_isp,Svetovoy_potok,Price,Id_z)
Values (@Name_s,@Moshost,@Napriaznenie,@Kreplenie,@Klass_zashiti,@Klim_isp,@Svetovoy_potok,@Price,@Id_z);
GO

Вызываю в Delphi:

procedure TForm6.Button1Click(Sender: TObject);
begin
case a of
1:
if (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <> '')and (Edit5.Text <> '')and (ComboBox1.ItemIndex <> -1)and (ComboBox2.ItemIndex <> -1) and (ComboBox3.ItemIndex <> -1)then
begin
DM.ADOQuery2.Parameters.ParamByName('Id_z').Value:=DM.ADOQuery1.FieldByName('Id_z').AsInteger;
DM.ADOStoredProc3.ProcedureName:='INSERT_SVETILNIK2;1';
DM.ADOStoredProc3.Prepared;
DM.ADOStoredProc3.Parameters.ParamByName('@Name_s').Value:=Edit1.Text;
DM.ADOStoredProc3.Parameters.ParamByName('@Moshost').Value:=strtofloat(Edit2.Text);
DM.ADOStoredProc3.Parameters.ParamByName('@Napriaznenie').Value:=strtoint(Edit3.Text);
DM.ADOStoredProc3.Parameters.ParamByName('@Kreplenie').Value:=ComboBox1.Text;
DM.ADOStoredProc3.Parameters.ParamByName('@Klass_zashiti').Value:=ComboBox2.Text;
DM.ADOStoredProc3.Parameters.ParamByName('@Klim_isp').Value:=ComboBox3.Text;
DM.ADOStoredProc3.Parameters.ParamByName('@Svetovoy_potok').Value:=Edit4.Text;
DM.ADOStoredProc3.Parameters.ParamByName('@Price').Value:=Edit5.Text;
DM.ADOStoredProc3.ExecProc;
DM.ADOQuery2.Close;
DM.ADOQuery2.Open;
StatusBar1.Font.Style:=[fsBold];
StatusBar1.Font.Size:=12;
StatusBar1.Panels[0].Text:='Добавлена новая запись: '+ Edit1.Text;
end else
Showmessage('Введите не пустое значение!');
end;
end;

При нажатии на кнопку запись добавляется в базу, но без учета связи таблиц. Где может бть ошибка в хранимой процедуре или пр ее вызове?

[Аватар]

но без учета связи таблиц

что имеется ввиду? Если речь о связях в программе, то хранимка понятия не имеет о задумках программиста

[Ericnex]

Имеется в виду связь таблиц (главная и подчиненная таблицы)